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ERRATA - ATTACH DISKETTE 


V The stack setup for a status call is in error. It is shown as: 
Status Record Pointer 
Coutrol Word 
Return Address <--- Top of Stack 


while it really is: 


Control Word 
Status Record Pointer | 
Return Address <--- Top of Stack 
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CRRATA - APPLE PASCAL OPERATING SYSTEM REFERENCE MANUAL 
A21,0928 
930-2199-29 


Page 195 
The first paragraph is a duplicate of the last paragraph on page 104. 


Page 197 

The parenthetical statement in the third paragraph about memory size 
should read: "(maximum file size is about 19099 bytes, or 49 diskette 
blocks)" 

Page 130 


Paragraph 2, the name for the temporary storage diskette should be 
SYSTEM.SWAPDISK. 


Page 149 
The example for replace in the top paragraph should read: 
/R/<CTRL-L>//<RET>/. 


Page 149 

The third from the last line should read: 
$94 .EQU * 

Page 150 


".CODE" does not have to be specified for output file from Linker. 


Page 161 

The information at label A2 and the paragraph just below it indicate that 
the S assigns the current value of the Location Counter to that variable. 
Wrong! The proper symbol to use is *. Using a label without an op-code 
will also assign the LC to that label. 


Page 199 
The HAZEL.MISCINFO file found on Apple 3: is designed for the Hazeltine 
1519 terminal, and will not work completely on the 1500 as set up. 


Page 293 
"HAS RANDOM CURSOR ADDRESSING" refers the reader to Section 4.7. This 


information is on pages 210 through 213. 
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Page 227 


LONG INTEGER: 2..18 words. A variable declared as INTEGER[n] is allocated 
((nt3) DIV 4) + 1 words. 


Page 286 


Line 9 states that RESET does a warm boot. This is incorrect, RESET does a 
cold boot in Pascal Version l.i. 
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ERRATA - APPLE PASCAL LANGUAGE REFERENCE MANUAL 
A2L6027 
030-9101-99 


Page 22 
There is no mention of the CHR (X) function. 


Page 86 

ORD will accept any ordinal type (integer, character, or user defined type) 
and return the ordinate of the argument. We should mention that the most 
common use for ORD is to return the ASCII value of a character. 


Page 148 

The two step boot cannot use APPLEl: for the first step because RESET does 
a cold boot in Version l.l. Using APPLE3: is OK for the first part of the 
boot. 
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INDEX TO PASCAL /// 


ALPHABETIC LISTING 


NUME RIC 


Doc 


612 
fh! 
605 
phe 
992 
993 
99f 
99] 
664 
^62 
15 
614 
616 
865 
O69 
016 
611 
668 
667 
H13 


LISTING 
Doc 


661 
^^? 
^5 
ha 
O65 
66 
667 
658 
669 
fif 
fii 
612 
f13 
^14 
615 
616 
996 
991 
992 
993 
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CHANGINC TEXT MODES 


The WRITE and WRITELN procedures can't be used to send the necessary control 
sequences to change the text mode to 49 columns black and white, for 
instance. You must use the UNITWRITE procedure instead. The correct syntax 
is: 


PROGRAM DEMO; 
VAR ANS :STRING; 


PROCEDURE CONTROL (NUMBER: INTEGER) ; 
VAR TRYIT :CHAR; 
BEGIN 

TRYIT := CHR (NUMBER); 

ENLIWRITE (1, TRYIT, l, x 12); 
END; 


BEGIN 
CONTROL (16); 
CONTROL (Ó); 
READLN (ANS); 
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FILER - ERROKS LISTING A DIRECTORY TO THE .SILENTYPE DRIVER 


The original version of the driver for the Silentype printer does not work 
properly with the Profile driver. It is easy to tell what version of the 
Silentype driver you have using the System Utilities diskette. Use the 
System Configuration Program to edit the Silentype driver. The last item 
is the Version ID number. This number should be 1.04 or greater. Version 
1.04 is available on the System Utilities Data diskette that comes with the 
System Software Package. 
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COMPARISON TO. APPLE ][ PASCAL 


The great majority of Apple ][ Pascal programs can be recompiled and 
executed on the Apple /// without modification. 


The following summary of significant differences between Apple ][ Pascal 
and Apple /// Pascal is presented in the Apple /// Pascal Programmers 
Manual, Volume 2 starting on page 128. 


OTHERWISE CLAUSE IN CASE STATEMENT 


Apple /// Pascal provides an OTHERWISE clause in the CASE statement. The 
OTHERWISE clause, if present, contains a statement that is executed if none 
of the cases in the CASE statement are executed. See Chapter 5 of the 
Apple /// Pascal Programmer”s Manual. 


SOS PATHNAMES 
SOS Pathnames are different from the Pascal filenames used on the Apple ][. 


Apple /// Pascal supports both kinds of names, as explained in the Apple 
/// Pascal Introduction, Filer, and Editor manual. 


SOS DEVICE DRIVER SUPPORT 


All SOS device drivers are supported by Apple /// Pascal as "I/O units." 
See Chapters 19-12 and the Standard Device Drivers Handbook. 


GRAPHICS 
The Apple /// screen graphics modes differ significantly from the Apple ][, 


and the graphics screen is driven through the SOS graphics driver (see 
Standard Device Drivers Handbook). Therefore, a new unit named PGRAF is 


supplied as a high-level interface to the graphics driver. 
TURTLEGRAPHICS is available only for compatibility with Apple ][ - see 
Appendix K of the Apple /// Pascal Programmer”s Manual. 

NEW PROCEDURES 


DATE, TIMEOFDAY, CLOCKINFO, and SETTIME are procedures provided in the 
APPLESTUFF unit for reading and setting the Apple /// systems internal 
date and time. See Appendix D of the Apple /// Pascal Programmer a Manual. 


(Continued) 
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NEW DATA TYPES 


The BYTESTREAM and WORDSTREAM types are provided for use as types of VAR 
parameters in procedure and function defínitions. See Chapter 3 of the 
Apple /// Pascal Programmer^s Manual. 


REAL ARITHMETIC 


For operations on values of type REAL, Apple /// Pascal conforms to the 
proposed IEEE floating-point standard. Under Default conditions, the 
difference between this and the arithmetic of Apple ][ Pascal is invisible 
unless the program performs operations with execeptional results (such as 
division by zero). See Appendix F of the Apple /// Pascal Programmer^s 
Manual for complete details. 


LIBRARY FILES AND UNITS 


In addition to the SYSTEM.LIBRARY file, each codefile under Apple /// 
Pascal can have a "program library" file associated with it. This makes 
the use of library units more convenient and allows a program to have up to 
48 segments at run tíme. 


When compiling a unit, it is no longer necessary in all cases to use the 
Compiler^s swapping option. 


MEMORY ORGANIZATION 


The memory organization of the Apple /// under SOS and Pascal is different 
from the memory organization of the Apple ][ under Pascal. This makes no 
difference to most programs. However, the amount of memory available for a 
user program will be somewhat greater on the 128K Apple /// than on the 


Apple ][. 


Memory organization might adversely affect an Apple ][ program if it 
depends on pointer values created while running on an Apple ][ and stored 
in a diskette file. Any such values will of course be incorrect on the 
Apple ///. 


Similarly, an Apple ][ program that depends on explicit Apple j[ hardware 
addresses will not work on the Apple ///. This might affect Apple ][ 
Pascal programs that are designed to drive the Silentype printer; such 
programs should be revised to use the Apple /// Silentype driver described 
in the Standard Device Drivers Handbook. 
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THE UNITSTATUS PROCEDURE 

For device oriented I/0, the UNITSTATUS procedure is supported. See 
Chapter 12 of the Apple /// Pascal Programmer”s Manual. 

RUNTIME SEGMENT TABLE 

The runtime segment table allows for 64 segments instead of 32. See 
Chapter 15 of the Apple /// Pascal Programmer” s Manual. 

CONDITIONAL COMPILATION 

The Apple /// Pascal Compiler allows conditional compilation. See 
Appendix F of the Apple /// Pascal Programmer^s Manual. 

THE CHAINSTUFF UNIT 

Since Apple /// Pascal has no "system swapping" mode, the SWAPON and 
SWAPOFF procedures are absent from the CHAINSTUFF unit. 

COMPILING APPLE ][ CODE 

The Apple /// Pascal Compiler can compile code to run on the Apple j[.- 


See Appendix F of the Apple /// Pascal Programmer”s Manual. 


FILE VARIABLE SIZE 


Every declared file in an active procedure requires 1,109 bytes of memory. 


COMPILER OPTIONS 


Option names can be spelled out. 


Because Compiler options always end with a comma, they can be chained 
together (except for the INCLUDE option). Therefore, the COMMENT option 
cannot contain a comma, and the RESIDENT option does not accept a list. 


PROCEDURE COMPLEXITY 


A more complex procedure may be compiled in the Apple /// than on the 
Apple ][ because of the Apple ///^s larger memory. 
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SYSTEM GLOBALS 


Users of the {$USER-} option may find that their programs are not portable. 
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ERROR CODE SUMMARY 


SYSTEM FAILURE 


dl Re-entrant system call 

02 Interrupt not found 

03 Too many nested interrupts 
GA Unable to allocate NMI 

95 Event queue overflow 

06 Stack overflow 

07 Invalid request code 

$8 Reserved I 

LE) Memory size less than 64K bytes 
DA Invalid volume control block 
OB Invalid file control block 
OC Invalid allocation block 

ØD Pathname buffer overflow 

GE 

OF Invalid buffer number 

10 Invalid buffer reguest 


PASCAL EXECUTION ERRORS 


1 Value range error 

2 No procedure in segment table 
3 Exit from uncalled procedure 
4 Stack overflow 

> Integer overflow 

6 Divide by zero 

7 NIL pointer reference 

8 Program interrupted by user 
9 System I/O error 

19 User I/O error 
11 Unimplemented instruction 
12 Floating point error 
13 String overflow 
14 Program HALT 
15 Programmed break-point 
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PASCAL I/O ERRORS 


9 No error, normal 1/0 completion 

1 

2 Bad unit number 

3 Illegal operation (e.g. read from PRINTER: ) 
4 

2 Lost unit, no longer on line 

6 Lost file, file no longer in directory 

7 Illegal pathname 

8 No room, insufficient space on diskette 

9 No unit, unit not on line 

1f No such file in specified directory 

Ll Duplicate pathname 

L2 Attempt to open an already open file 

13 Attempt to access a closed file 

14 Bad input format, error in reading number 
15 Ring buffer overflow, input arriving too fast 
16 write protect error, diskette is protected 
17 | 

18 

19 Too many files open for system to handle 
20.3451 

32 (SOS) Invalid request code 

33 

34 (SOS) Invalid control parameter list 

25 (SUS) Character device not open 

36 (SOS) Device not available 
37 (SOS) Resource not available 

35443 

44 (SOS) Invalid byte count 

4 5 (SOS) Invalid block number 

36.57 

48..63 (505) Device specific error 

04 (SOS) Device error, bad address or data on diskette 
05 (SOS) Too many character files open 

66 (SOS) Too many block files open 

67 (SOS) Invalid file reference number 

68..72 

73 (SOS) Directory full 

74 (SOS) Incompatible file format 

75 (SOS) Unsupported storage type 

76 (SOS) Attempted read past end of riie 

27 (SOS) File position out of range 

78 (SOS) Illegal access attempted 

79 (SOS) User^s buffer too small 
8 (SOS) File busy 
81 (SOS) Volume format neither SOS nor Apple II 
82 

83 (SOS) Invalid value in list parameter 
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8. ^ (SOS) Out of memory for SOS system buffer 
85 (SOS) Buffer table full 

86 (SOS) Invalid system buffer parameter 

87 (SOS) Duplicate volume error 

88..126 

12355127 


(SOS) System call error 
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PASSING STRINGS TO AND FROM FUNCTIONS 


Question: 
Since functions cannot return a non-scalar variable, how does a function 


return a string? 


Answer: 
Strings can be passed to and from functions or assembly language routines 
by using variable parameter. A VARiable (VAR) parameter is a 
pass-by-reference parameter. That is, the address of the parameter is 
passed. In contrast, when a value parameter is used, the value of the 
parameter is passed (See pp.87-990, Apple /// Pascal Programmer”s Manual, 
Volume 1). An example of passing a string to and from a function is listed 
below. Since parameter-passing rules are the same for procedures as for 
functions, a procedure could have been used similarly. The value returned 
by the function is used to determine the success of the function. This is 
a good programming convention to use when writing functions. 


PROGRAM PASS; 


| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

VAR I: INTEGER; | 
STl: STRING; | 
TABLE: ARRAY [9..50] OF STRING; (* For this program to run, *) | 
(* TABLE must be initialized *) 

(* prior to calling DOIT. *) | 

| 
FUNCTION DOIT (VAR ST2: STRING; INDEX: INTEGER) : BOOLEAN; | 
(* VAR designates ST2 as a VARiable parameter. *) | 

BEGIN | 
| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 


DOIT := TRUE; 
IF LENGTH(TABLE [INDEX]) = f THEN (* DOIT returns false if *) 


DOIT := FALSE (* the given entry(INDEX) *) 
ELSE ST2 := TABLE [INDEX] (* in the table is null. *) 
END; (* Else, it returns true. *) 
BEGIN 
FOR I := f TO 59 DO 
BEGIN (* STl should be null unless *) 
STl:- ^^; (* DOIT alters it. *) 
IF DOIT(ST1,I) THEN (* If the array entry is not *) 
WRITELN(ST1) (* null, print the string. *) 
END (* FOR *) 
END. 


NOTE #1: 
An individual element of a packed variable cannot be supplied as the 
actual parameter. See Page 90 of the Apple /// Pascal Prograumer's 

Manual, Volume |. 
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NOTE #2: 

The addresses of strings are ALWAYS passed to the procedure or function, 
whether the string is a VARiable parameter or a value parameter. Declaring 
the string parameter to be a VARiable parameter avoids copying the entire 
value of the string to the function, with the attendant memory and 
performance penalty. The programmer should bear in mind that, in general, 
it is good programming technique to use value parameters as much as 
possible, since this provides for maximum “decoupling” of function and 
calling progran. 
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EDITOR - INSERTING CONTROL CHARACTERS 


It is possible to type all 32 possible control characters into the Pascal 
Editor. The trick is to press the Open-Apple key and the keys required to 
obtain the desired control character. There is a table on page 136 of the 
Standard Drivers manual that describes which keys will generate which 
characters. The characters will go into the file with their high bit set 
to one. Most programs and peripherals ignore the high bit so this won't be 
a problem. 
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SYSTEMPÓQ DX FILES 


SYSTEMPÓS00X files are temporary files created by Pascal whenever a program 
opens a new file. This name is used until the file is closed and then 
re-named to match the specified file name. If the program is interrupted 
and the system doesn’t get a chance to close the file, the SYSTEMPÓ96X 
filename will be left in the directory. One way to cause this is to remove 
the diskette from the drive before the program is finished writing. 
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SETTING THE SCREEN MODE 


The Apple /// has several useful screen modes that can be activated by 
sending control characters to the Console driver. Unfortunately, Pascal 
modifies some control characters before sending them out.  Control-P, for 
example, is recognized as a space compression character and won't be sent 
at all. The following program is designed to allow full control of the 
Apple ///^s screen modes. For further information refer to the Standard 
Drivers manual. 


PROCEDURE. SCREENMODE (NUMBER: INTEGER); 
VAR Lil: CHAR; 
BEGIN 

Lo SEABER 


N [9.2] THEN BEGIN If the given number is valid } 


i 
CHR (14)); 


rn guo, 


RITZ A turn off the screen and } 

CM := CHR (16); 

eee to Ch. COH de x 1295 { send the prefix character } 

CH i9 CHR (NUMBER); 

COTR ETTE dl. “CH, Le i E233 : and the mode character. } 

IE CUMBER = 2 THEN WRITE (CHR (IJ); : If 88 col, restore viewport. } 

MIS CCHR (28), CHR (15); í Clear screen and turn it on. } 
END ELSE WRITELN (CHR (7), “SCREENMODE ERROR ^); ( else OOPS! } 


PROCEDURE TES, 2nRoR: 


SE ist 
WEL Ne QI) ( Clear the screen. } 
Cv E 
RITZ * "Talis will generate an error. ^); < write some text. } 
SCREZNMGDE (5); ‘ Set an invalid mode. } 
Wins Dh s 
ATE Press RETURN to continuei ~j): 
Leet is 

exp 

PROCEDURE TESTA; 

BEGIN 
SCREENMODE (8); í Set 40 column B/W mode. } 


GOTOXY (9,1153 

WRITELN (“This is 40 column text mode.”); 
WRITELN; 

WRITE ("Press RETURN to continue: ^); 
READLN; 
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PROCEDURE TESTCOLOR; 


BEGIN 
SCREENMODE (1); { Set 40 column color mode. } 
WRITE (CHR (20), CHR (4)); { Set background to Dark Green. } 
WRITE (CHR (28)); { Clear the screen. } 
WRITE (CHR (19), CHR (13)); { Set forground to Yellow. } 


GOTOXY (9,11); 
WRITELN (“This is 48 column COLOR mode.^); 
WRITELN; 
WRITE (“Press RETURN to quit: ^); 
READLN; 

END; 


BEGIN 


TESTERROR; 
TESTA; 
TESTCOLOR; 
SCREENMODE (2); 


Cn 
u^ 
TI 
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READING THE SPECIAL KEYS 


The following program will read the Apple /// keyboard and return not only 
the character of the key that was pressed but the status of: 


shift 
Control 
Alpha-Lock 
Open-Apple 
Closed-Apple 
Special 


The program starting on the next page is a demonstration of how to 
recognize these keys from a Pascal program. 


(Continued) 
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PROGRAM READKEY; { Read both bytes from the keyboard ; 
i to get special information } 

VAR C1,C2: CHAR; 

PROCEDURE GETKEY (VAR Cl, C2: CHAR); í Cl is the character and C2 


is the status information 


VAR STATUS : INTEGER; 


BEGIN 
STATUS := 128; 
UNITSTATUS (2, STATUS, 15); ( Enable 2 byte read } 


READ (KEYBOARD, Cl); Read character } 
IF EOLN (KEYBOARD) THEN BEGIN 


Cl := CHR (13); Fix carriage returns |} 


T mue. 


END; 

READ (KEYBOARD, C2); ‘ Read status byte y 

STATUS := Ó; 

UNITSTATUS (2, STATUS, 159; { Disable 2 byte read ] 
END; 


FUNCTION MASK CHAR (C: CHAR; POSITION: INTEGER): BOOLEAN; 
{ Bitwise AND } 


BEGIN | 
MASK CHAR :- ODD (ORD (C) DIV POSITION); 


TUD» 
al; 


BEGIN 
WRITELN (“Press escape to exit the program.” 7: 
ARITELN; 
REPEAT 
GETKEY (Cl, C2); 
WRITE (CHR (ORD (CL) +128), ^ ASCII:^, ORD (C1):4); 
LF MASK CHAR (C2, 2) THEN WRITE (^ SHIFT”); 
IF MASK CHAR (C2, 4) THEN WRITE (^ CONTROL”); 
IF MASK CHAR (C2, 8) THEN WRITE (^ ALPHA-LOCK^); 
IF MASK CHAR (C2, 16) THEN WRITE (^ OPEN-APPLE”); 
IF MASK CHAR (C2, 32) THEN WRITE (^ CLOSED-APPLE^); 
IF MASK CHAR (C2, 128) THEN WRITE (^ SPECIAL^); 
WRITELN; 
UNTIL Cl = CHR (27); 
END. 
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LISTING LARGE DIRECTORIES 


The Filer in Apple /// Pascal reads the entire directory into memory before 
printing any of it. This can cause problems with very large directories on 
a Profile. With a 128K Apple /// the limit is about 500 files before the 
directory list function doesn't work. 

I 
SOS was designed with subdirectories so that large numbers of files can be 
Stored and used with ease. A daily log of transactions might be arranged 
like this: 


TRANSACTIONS.82 
u | nm 
i | 
JANUARY FEBURARY 
| 
| | | | | | | | 
Di DE 3% «q 931 DL D2 D3 ... D28 


This way the pathname to the data for the last day of reburary would be: 
PROFILE / TRANSCTLONS.82 / FEBURARY / D28 


The spaces in the pathname were added for clarity. 
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There is a problem with SEEK when used with Apple ][ Pascal formatted 
diskettes. When SEEKing to a record that has been added to the file since 
the last RESET, SEEK will either take a very long time to find the record or 
Pascal will stop with a SYSTEM FAILURE. 


This commonly happens when a file is extended using PUTs and then SEEK is 


used to access one of the new records. Further operations on the file may 
trash it. 


BLOCK NUMBER 


| % + X d 2 b @ d 4 
————————————————— 


EOF when RESET Current EOF 


| | 
| Original file | New information | 
| | 

| 


In this example, a SEEK to a record in the last half of block 2, block 3 or 
block 4 will cause undesirable results. 


If you must extend a file and then SEEK to one of the new records, RESET 
the file before doing the SEEK. 
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ACCESSING THE EXTRA MEMORY 


The following information is not supported by Apple Computer, Inc. It is 
for you information only. 


Apple /// Pascal is upwardly compatible from Apple }[ Pascal. One of the 
constraints this imposed on the design was the restriction to a data space 
of 64K bytes. This restriction has been made clear on all specifications of 
the product. Although the system will use space outside of this for SOS, 
drivers, graphics space, interpreter and code segments, this restriction 
will still interfere with programs that want to handle large quantities of 
data. 


SOS to the rescue! To illustrate the techniques involved in accessing more 
data, we have provided some small assembly routines for your edification. 
They ask SOS to allocate more space to the program, allow the transfer of 
data back and forth from that space, and eventually ask SOS to deallocate 
the space. On top of that is built a simple string package that will store 
up to 128K of string values in thís space. The memory management within the 
space is very símple, just a steadily increasing stack with only the ability 
to start over, but it's still very useful and will illustrate the techniques 
of using that extra memory. 


The routines are in three pieces. The first is assembly language and 
contains some useful macros that the SOS interface needs. The second is a 
fancy version of MOVELEFT that will move any number of bytes from any 
location in banked memory to any other. It understands the memory 
addressing of the Apple /// and will increment pages accordingly. Finally, 
there is a Pascal unit that uses the other two pieces to implement the 
string routines. 


; MACRO Definitions 


.MACRO PULL 
; Pull 2 bytes off the stack and store theu 


PLA 

STA ži 
PLA 

STA 41+1 
«ENDM 


«MACRO PUSH 
; Load 2 bytes and put them on the stack 


LDA 21+1 
PHA 

LDA Zi 
PHA 

.ENDM 


(Continued) 
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.MACRO Return 
» Load the return address, PUSH it and RTS 
PUSH Al 

RTS 


.ENDM 


MACRO EnterProc 
; Save the return address 


PULL ^l 
EN OM 


«MACRO EnterFunc 

; Save the return address and kill the 4 byte bias 
EnterProc 3} 

PLA 

PLA 

PLA 

PLA 

«ENDM 


«MACRO PushTrue 
; Put a Boolean TRUE on the stack 


LDA FO 
PHA 

LDA $1 
PHA 

.ENDM 


«MACRO PushFalse 

; Put a Boolean FALSE on the stack 
LDA FO 

PHA 

PRA 

.ENDM 


.MACRO P A Word 

: Copies a word from a Pascal var to assembly language 
IF 21 & FF) <> f 

WrongOrderinA P Word 


.ENDC 

LDY #8 

LDA (Z1),Y 
STA 12 

INY 

LDA (X1),Y 
STA 1241 
.ENDM 


(Continued) 
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.MACRO A P Word 
Copies a byte from a assembly lang word to a Pascal word 





„IF 22 & HFFOÓ <> 6 
WrongOrderInA P Word 
.ENDC p 

LDY $6 

LDA zl 

STA (X2) ,Y 

INY 

LDA 21+1 

STA (22),Y 

«ENDM 


¿MACRO P A Byte 
: Copies a byte from a Pascal byte to assembly language 


‚IF 21 5 OFFOD <> 6 
WrongOrderInP A Byte 
.ENDC und 

LDY fó 

LDA (21),Y 

STA 42 

.ENDM 


.MACRO A P Byte 
. Copies a byte from assembly language to a Pascal word 


-IF 22 & ÉFFÓD <> D 

WrongOrderlnA P Byte 

.ENDC ui 

LDY #2 

LDA &1 

STA (22) ,Y 

TYA 

INY 

STA (%2),Y ; Clear highbyte of Pascal var 
.ENDM 


«MACRO SOSCall 
; Framework for calls to the SOS memory manager 


BRK 

«BYTE 41 
. WORD 242 
«ENDM 


Templ .EQU DER 
Temp EQU DE 2 
Temp3 «EQU PE4 
Temp4 «EQU HE6 


(Cont inued) 
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FindSeg 


SegBase 
Bank 
SegNum 


Input: 
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PROCEDURE Allocate(VAR NumPages,Segnum,Bank,SegBase: INTEGER )};EXTERNAL; 
{allocates a chunk of SOS memory: 


NumPages: Maximum number of pages to try for. 


Out put: 


NumPages: Number of pages actually allocated. 

SegNum: SOS Segment number (for deallocate) 

Bank: Starting address bank number 

SegBase: Starting address byte address ($02066..S9EDf£) 


} 


PROC Allocate,4 
.EQU 4] 


«EQU Templ 
«EQU Temp2 
«EQU Temp3 


NumPages .EQU Temp4 


$1 


$2 


EnterProc RetAddr 


PULL SegBase 
PULL Bank 
PULL SegNum 
PULL NumPages 


P A Word NumPages,Pages 


SOSCall Find Seg,Param 
BEQ SL ^ 
SOSCall Find Seg,Param 
BEQ $2 ^ 


LDA #6 

STA Pages 

STA Pages+i 

LDA SPage 

LDY $] 

STA (SegBase) ,Y 
DEY 

TYA 

STA (SegBase),Y 

A P Word Pages ,NumPages 
A P Byte SBank, Bank 
A P Byte Seg, SegNum 


Return RetAddr 
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; If it worked,great 
; Else try again! 


; 2 failures ==> return f pages 


; Send back starting address 
; in high byte!! 


(Cont inued) 
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Param .BYTE 66 
SrchMde .BYTE 62 ; Can cross more than one boundary 
Segld ¿BYTE 3f ; First user segment? 
Pages «WORD 


SBank «BYTE 
SPage +» BYTE 

«WORD 
Seg ‚BYTE 


RetAddr .WORD 
‚PROC DeAllocate, 1 


; PROCEDURE DeAllocate(SegNum: INTEGER); EXTERNAL; 
Release Seg .EQU 45 


—EnterProc RetAddr 

PULL SegNum 

LDA SegNum 

BEQ Ret ; Don't release all segs! 

SOS CALL Release Seg,Param 
Ret Return RetAddr — 
Param «BYTE 1 
SegNum „WORD ; Only first byte used by SOS, but PULL needs 2 
RetAddr «WORD | 

«END 


This file contains an assembly language procedure to move bytes from one 
; bank to another. This is designed to be used from Pascal to get access 
; to the rest of the bank space in larger machines. This can allow you 

to do SOS Request-Seg calls and use that area for data storage 

for later use or to pass to an assembly procedure. 

This procedure does two slightly difficult things : 

: l. avoids holes in bank memory map 

2. switches banks on both source and destination at the right times 


Pascal declaration is: 
PROCEDURE FetchBytes(SrcBank: INTEGER; Source: INTEGER; 

DstBank: INTEGER; Dest: INTEGER; 
PageCount: INTEGER; Count: INTEGER 
); EXTERNAL; 

and the procedure will copy 256%PageCount+Cowt bytes from Source 

(a bank pointer to bank pair starting with SrcBank) to Dest 

(a bank pointer to bank pair starting with DstBank); 

A SrcBank or DstBank of -] means "in Pascal's bank pair" 

Thus FetchBytes(-1,Atsign(S),-1,Atsign(D),6,C) = MoveLeft(S,D,C) 


wa we 


we we we wt Y? we we Yo we 
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; RESTRICTIONS: 
1. Equivalent to a moveleft (ascending transfer) 
2. Cannot reach top and bottom (system) banks, 
and "real" addresses must be offset 
by $2000 to render bank addresses 


, 

: ALGORITHM: 
; lo. If we're moving X*65535 +Y*256 + Z bytes, then 
: 2. First move Y pages to clear middle byte of Count 
; 3. Then use middle byte to move X*256 pages, 

: 4. Finally, move Z bytes in last page. 
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; MACRO Defs 
.MACRO PULL 
PLA 
STA A1 
PLA 
STA 41+1 
.«ENDM 
«MACRO PUSH 
LDA 4 1+1 
PHA 
LDA Al 
PHA 
.ENDM 


«MACRO SetBank 

; Saves £1 (an extended address bank pointer) in Save%l 

; and pops new value 

Follows convention that new value = =] ==> use Pascal bank checks 
the address currently pointed to by corresponding word in Zero 
page, and modifies it and 21 (bank register) to make sure the 
address does not point to zero page of bank pair (to avoid holes 
in the memory map) Zero page wraparound during execution taken 
care of by main loop. 


MR wy Wwe we 


LDA Al 
STA Savežl ; Save old one 
PLA ; Get low order byte of new bank 
CMP #OFF ; Don't use if = to -] 
BEQ $1 
ORA #86 ; Set extended addressing on 
STA £1 ; And gave bank 
$1 LDA 41-168141 ; Check for zero page reference of starting 
; pointers (rest of algorithm guarantees it 
BNE $3 ; will never happen again) 


(Continued) 
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LDA #8 ; If was nn:ffxx , change to nn-1:8fxx 
STA 71-166 1+1 
DEC £1 
$3 PLA 
‚ENDM 


+ 
? 


- Following macro guarantees that the base pointer 241 will not 
wrap into zero page during next 256 increments of the pointer 


«MACRO TestWrap 


LDA Alt+} : Before moving each page, check for wraparound 
CMP #OFF 
BCC $1 
SBC $5f 
STA 241+1 
INC 21+1601 
$1 «ENDM 


; Main procedure 
«PROC FetchBytes,6 


Source EQU fEÓ - Zero page pointer to read bytes through 
SrcBank .EQU 16f14Source 

Dest .EQU 6E? : Zero page pointer to write bytes through 
DstBank .EQU 1661+Dest 

; temps 

Count .EQU 630 - Three byte counter of f of bytes to move 
SaveDstBank .EQU 933 : Allow us to restore Pascal bank at end 
SaveSrcBank .EQU f34 ; of subroutine 


> Initializations 


PULL 


* 
> 


RetAddr : Get information off stack 


Convert 4 bytes of page/byte count to 


; three byte ínteger 


PULL Count 
PLA ; low order byte of page count 
CLC 
ADC Count+1 - add two (low order) page counts together 
STA Count+1 
PLA ; now get high order byte 
ADC #6 ; and add carry to high order count 
STA Count+2 
(Continued) 
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; now pull destination and source off stack 
PULL Dest 
SetBank DstBank 
PULL Sour ce 
SetBank SrcBank 
; END Initializations 
; test to see if we need to move another whole page. 

MovePg TestWrap Dest ; guarantee copy loop works for next 
TestWrap Source ; 256 bytes 
LDA Count+l ; Y pages to copy? 
BNE PgLoop ; yes, go copy them 
LDA Count+2 ; X chunks of 256 pages? 
BEQ Partial ; no, just copy last fragment 
DEC Count +2 ; yes,go copy it (count+l now contains $166) 


; now copy one page 


PgLoop LDY FO ; move one page. This is key loop. 
$1 LDA @Source,Y ; get data 

STA @Dest,Y ; store it 

INY 

BNE $1 

; change to next page 

INC Sour ce+] 

INC Dest+] 

DEC Count-*l 

JMP MovePg 


; now move partial page, Testwrap on source and dest is assumed 
; to already have been done so we can move at least 256 bytes 
; Without thinking about it again. 


Partial LDA Count ; all done yet? 
BEQ Return 
LDY ff ; now move (low byte of Count) f of bytes 
$1 LDA @Source,Y 
STA @Dest,Y 
INY 
CPY Count 
BNE $1 
Return LDA SaveSrcBank ; and go home 
51A SrcBank 
LDA SaveDstBank 
STA DstBank 
PUSH RetAddr 
RTS 
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Retaddr WORD 


-FUNC Atsign,1 

; x := Atsign(Y) causes X to point to Y 
PULL RetAddr 

PLA 

PLA 

PLA 

PLA 
PUSH RetAddr ; 
RTS : 





RetAddr .WORD 
Loc . WORD 
«END 


{SSETC Debug := TRUE) : 
UNIT StringSpace; | 


INTERFACE 
TYPE 
STRINGI = STRING[1]); 
STRING255 = STRING[255]; 
STRPTR = INTEGER; 


FUNCTION InitStringSpace(ColdStart:BOOLEAN): INTEGER; 
PROCEDURE FreeStringSpace; 
FUNCTION PutString(VAR S: STRING1; VAR WHERE: STRPTR) : BOOLEAN; 
PROCEDURE GetString(Who:STRPTR; VAR S:STRING255); 

{S had better be 256 bytes long!} 


IMPLEMENTATION 

VAR l 
SegNun, {segment number of memory chunk} i 

Bank, {what bank is chunk in} | 

Base, {start of chunk received (byte address)! i 

Tos, {next word to allocate (base rel word address)} 

Limit: INTEGER; {last word allocatable (base rel word address)} i 

H 


PROCEDURE Allocate(VAR NumPages,Segnum,Bank,SegBase: INTEGER); EXTERNAL; 
{allocates a chunk of SOS memory: 
Input: 
NumPages: Maximum number of pages to try for. 
Out put: 
NumPages: Number of pages actually allocated. 
SegNum: SOS Segment number (for deallocate)} 
{ Bank: Starting address bank number 
SegBase: Starting address byte address ($6200..S9E66)) 


(Continued) 
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PROCEDURE DeAllocate(SegNum: INTEGER); EXTERNAL; 


PROCEDURE FetchBytes(SrcBank: INTEGER; Source: INTEGER; 
DetBank: INTEGER; Dest: INTEGER; 
PageCount: INTEGER; Count: INTEGER 
); EXTERNAL; 


FUNCTION Atsign( VAR x: INTEGER): INTEGER; EXTERNAL; 


FUNCTION InitStringSpace((ColdStart:BOOLEAN): INTEGER); 
VAR 

NumP ages: INTEGER; 

TempBase: INTEGER; 


BEGIN 
IF ColdStart THEN BEGIN 

FreeStringS pace; 
{SIFC Debug} 
WRITELN('How many pages to allocate?'); 
READLN(NumPages); 
IF NumPages > 512 THEN NumPages :* 512; 
(SELSEC Debug) 
NumPages := 512; 
{SENDC Debug} 
Allocate(NumPages ,SegNum, Bank, TempBase); 
Base := TempBase - {$2008}8192; {shift into extended address} 
Limit := NumPages*128 -32767-1; {128 = words/ page} 
{SIFC Debug} 
WRITELN('Assembly results:'); 
WRITELN('Segment ',Segnum,' Allocated ',NumPages,' pages', 

' in bank ',Bank, 
' at real address ',TempBase); 

IF Base MOD 256 <> f THEN WRITELN(CHR(7),'bad base address'); 
(SENDC Debug] 

END; 

Tos := -32767-1; {compiler doesn't like -32768) 

InitStringSpace := NumPages; 
END; 


PROCEDURE FreeStringSpace; 

BEGIN 

IF SegNum <> 1 THEN De Allocate(SegNum); 
END; -= 


PROCEDURE Convert (Who:STRPTR; VAR TempBank,TempAddr: INTEGER); 
BEGIN 
TempBank := Bank; 


(Continued) 
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IF Who >= f THEN BEGIN 
(must be in second half of chunk] 
TempBank := TempBank+2; 

{SIFC DEBUG} 
WRITE( '+'); 
{SENDC DEBUG} 

END; 

TempAddr := WhotWho+Base; 

IF (TempAddr < Base) AND (TempAddr >= Ø) THEN BEGIN 
(must be in thírd bank of this half) 
TempBank := TempBank+2; 

{SIFC DEBUG} 
WRITE('2'); 
{SENDC DEBUG} 

END; 

{SIFC DEBUG} 

WRITE('(',TempBank,':',TempAddr,')'); 

{SENDC DEBUG} 


END; 
FUNCTION PutString {(VAR S:STRING1; VAR WHERE: STRPTR): BOOLEAN}; 
VAR 
NewTos: INTEGER; {if this succeeds, where will Tos be? 
(base relative word pointer)) 

TempBank, 
TempAddr: INTEGER; (real bank address of string) 

BEGIN 


{check for space overflow; this is tricky due to negative addresses: 
(if limit is positive (i.e. we have at least 32k words)) 

Tos * - (note: É is +) 

S e CMP means Overflow if newtos > limit 


n | XXX means impossible situation 
e + CMP CMP (must have already overflowed) 
wW OVFL means overflow 
t OK means no overflow possible 
o -~ OVFL CMP 
S 
(if limit is negative (i.e. we have less than 32k words)) 
Tos * - 
n | 
e + XXX OVFL L CMP ) 
Ww 
t 
o -~ | XXX CMP 
gs 
} 


{SIFC DEBUG} 
WRITE('Storing "',S,'" at ',tos); 
(SENDC DEBUG} 


(Continued) 
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NewTos := Tos+(LENGTH(S)+2) DIV 2; 

IF (Tos < NewTos) AND (NewTos < Limit) THEN BEGIN 
PutString := TRUE; 
Convert (Tos, TempBank, TempAddr ); 
FetchBytes(~1,AtSign(S) ,TempBank,TempAddr ,6,Length(s)+1); 
Where := Tos; {hand back pointer} 
Tos := NewTos; 

END ELSE BEGIN 
PutString := FALSE; 

END; 

{SIFC DEBUG} 

WRITELN; 

{SENDC DEBUG} 

END; 





PROCEDURE GetString{(Who: INTEGER; VAR S:STRING255)}; 
VAR 
TempBank, 
TempAddr: INTEGER; {real bank address of string} 
BEGIN 
{compute real address of string in memory} 
(SIFC DEBUG} 
WRITE('Getting ',Who); 
(SENDC DEBUG) 
Convert(Who,TempBank,TempAddr); 
Fet chB vt es (TempBank ‚TempAddr ,-1 ,AtSign(S),1,6); 
{SIFC DEBUG} 
WRITELN(' ==>"',S,'"'); 
{SENDC DEBUG} 
END; 


BEGIN 


SegNum := -1; 
END. 
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TYPEAHEAD KILLER 


The following program demonstrates how to control the typeahead feature of 
the .CONSOLE driver. The Standard Drivers manual and the Pascal 
Programmer”s manual explain how it works. 


PROGRAM KILL TYPEAHEAD; 


VAR CH: CHAR; 
COMMAND: INTEGER; 


BEGIN 
WRITE (CHR (28)); GOTOXY (9,12); 
WRITE (“Typeahead: K)ill, R)estore, A)bort: ^); 
REPEAT 
READ (KEYBOARD, CU); 
UNTIL. Ch IN [RS TRO. FR E A a; 
COTOXY (9,12); 
CASE CH OF 
^K^, ^k^: BEGIN 
COMMAND := f; 
UNITSTATUS (1, COMMAND, 19); 
WRITE (“Typeahead is off.^, CHR (31)); 
END; 
^R^, ^r^: BEGIN 
COMMAND := 128; 
UNITSTATUS (1, COMMAND, 19); 
WRITE (/Typeahead is on.^, CHR (31)); 
END: 
^A^, “a”: WRITE (^Aborted...^, CHR (31)); 
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I/O ERROR CODES 


This table repeats and amplifies the information presented in Table 2 on 
page 155 of the Programmer”s Manual Volume 2. 


Pascal errors 


d No error; normal I/O completed 

2 Bad unit number 

3 Illegal operation 

2 Lost unit... no longer on line 

6 Lost file... file is no longer ín directory 
7 Illegal pathname 

8 No room... insufficient space on diskette 
9 No unit... unit is not on line 

1g No such file in specified directory 

11 Duplicate pathname 

12 Attempt to open an already open file 

13 Attempt to access a closed file 


14 Bad input format... error in reading number 

15 Ring buffer overflow... input arriving too fast 
16 Write protect error... diskette is protected 

19 Too many files open for system to handle 


SOS Device System Errors 


32 Invalid request code 

33 Invalid control/status code 

34 Invalid control/status parameter 
35 Device not open 

36 Device not available 

37 Resource not available 

38 Invalid operation 

39 I/O error 

42 Checksum error 

43 Device write protected 

44 Byte count not a multiple of 512 
45 Block number too large 

46 Diskette has been switched 


48..63 Device Specific error 


SOS File System Errors 


64 Invalid Pathname Syntax 
65 Too many character files open 
66 Too many block files open 
67 Invalid file reference number 
68 Path not found 
69 Volume not found 

(Continued) 
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79 File not found 

71 Duplícate file name 

Z2 Overrun error 

73 Directory full 

74 Incompatible file format 

13 Unsupported file storage format 
76 Attempted read past end of file 
77 File position out of range 

78 Illegal access attempted 

7 User supplied buffer too small 
80 File busy 

8 1 Directory error 

82 Directory not SOS format 

83 Invalid value in list parameter 
$4 Out of memory for SOS system buffer 
35 Buffer table full 

86 Invalid system buffer parameter 
57 Duplicate volume 

55 „ct a block device 

39 Level error 

90 Invalid bitmap address found on volume 
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INTRINSIC UNITS 


Intrinsic Units in Pascal allow the programmer to write and compile code in 
nodules. The resulting modules can then be put in libraries and used by 
several different programs without a separate linking step. The unit is 
automatically loaded with the program code file when the program is 
sxecuted. The following is a simple example of how to write an intrinsic 
unit. It is a supplement to the information in chapter 14 of the 
Programmer”s Manual. 


First let/s enter the unit. This unit has one function that asks for an 
integer number and returns that number doubled. Enter the editor and enter: 


UNIT LIDI 
INTRINSIC CODE 16$; 


INTERFACE 
FUNCTION DOUBLE (NUM: INTEGER): INTEGER; 


MPLEMENTATION 
UNCTION DOUBLE; 


á 

E 
DOUBLE := NUM + NUM; 

Ye: NT 

1 LZ y 


1 
H 


pg. 


Joo EN 
SRLIELH ( uIiB2 INALIZA IOS Js 
IT 


t 


Save the file as LIB2, quit the Editor and compile the unit. Now we put the 
unit in a library. I used a program library for this test so that I 
gouli” have to modify the SYSTEM.LIBRART. Here/^s how to do it: 

Execute /PASCAL3/ LIBRARY 

The destination will be TEST2.LIB 

The source is LIB2.CODE 

Enter "=" to copy the entire codefile into the library 

Enter "Q" to save the library and exit the program 

Press return when asked for Notice? 


When that’s done, go back to the Editor and enter: 


PROGRAM TEST2; 
USES {SUSING TEST2.LIB} LIB2; 


VAR INT: INTEGER; 


(Continued) 
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BEGIN 

READLN (INT); 

WRITELN (INT, ^ times 2 equals ^, DOUBLE (INT)); 
END. 


Save the file as TEST2 and quit the Editor. Compile the program. 
The unit will be loaded automatically when the program is executed. 
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REGULAR UNITS 


Regular Units in Pascal allow the programmer to write and compile code in 
sections. The resulting sections can then be linked together to fora a 


single code file that will run without needing to refer to a library. The 
following is a simple example of how to write a regular unit. It is a 
supplement to tne information in chapter 14 of the Programmer s Manual. 


First let/s enter the unít. This unit has one function that asks for an 
integer number and returns that number doubled. Enter the editor and enter: 


UNIT LIBl; 


INTERFACE 
FUNCTION DOUBLE (NUM:INTEGER):INTEGER; 


IMPLEMENTATION 
FUNCTION DOUBLE; 
BEGIN 
DOUBLE := NUM + NUM; 
END; 
BEGLN 
WRITELN ¿1181 INITIALIZATION”); 
END. 
Save the file as LI2:, gut 


the Editor and compile the unit. Now we enter 
BL: 


the program that wili use LIBi: 


PROGRAM TESTL; 


5 -SUSING LIBL.CODE} LIBI; 


pu 


Gs 


VAR INT : INTEGER); 


BEGIN 
READLN (INT); 
WRITELN (DOUBLE (INT)J; 
END. 
Save this file as TESTI, Quit the Zditor, and Compile TESTL. Now we have 


the code file for the unit and the program. The next step is to link them 
together. Enter _ :rom command mode to get iato the Linker. 


The Host File is TESTI 

The Lib file is LIBI 

Just press return for the aext two questions 
The output file will 5e TESTI 


(Continued) 
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Now TESTL is ready to execute. Any time you change or re-compile either 
TESTL or LIBl you will have to re-link then. 


APPLE TECH NOTES Copyright (C) 1982 by Apple Computer, Inc. 


a, I TA NA ee me meee ee M am cap a — RR BA DÀ Oe “i a vs BO EE AS —  —— a —À ——À— ———————————— 


a a ae Ong a a ge mi SE Og a a a a A a a a a m a a a Se er a re Son AS SD EI IE U IR o 


ERRATA - PASCAL PROGRAMMER/S MANUAL, VOLUME l 


This information also appears in Apple publication 931-0237-B. 


Page 5 
Under the heading “A Sample Program” the sentence “The words between starred 
parentheses are Pascal-language comments." should be changed to read "The 


words between curly brackets are Pascal-language comments." 


Page ll 
Replace the first sentence with: 


A real constant contains either a decimal point (period) or an 
"exponent part," or both. 


Page 11 
Add the following example to the list of valid real constants representing 
the same numerical value. 


31459E-4 


Page 13 
Delete the parenthetical remark, "(depending on the actual value)". 


Page 39 
The USES declaration following paragraph 2 should read 


USES REALMODES, TRANSCEND, APPLESTUFF; 


Page 49 
Replace the paragraph that starts with "The ROUND function..." with: 


The ROUND function takes a real value as its parameter and returns 
an integer value, which is obtained by rounding the real value to 
the nearest integer. If the parameter is halfway between two 
integers, then it is rounded to the even integer. (Rounding 
algorithms are discussed in detail in Appendix E. This appendix 
also describes how programmable switches can be used to change the 
rounding method.) For example, 


Page 49 
Add the following to the list of examples for the ROUND function. 


(Continued) 
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ROUND(42.5) is 42 


Page 59 
Replace the section on "Library Functions" at the bottom of page 5p with the 


above paragraphs. 


A set of trigonometric and exponential functions is provided as a 
library unit called TRANSCEND, which is described in Appendix A. 


A set of functions and procedures for controlling and diagnosing the 
results of real arithmetic, for taking square roots and real 
remainders, and for analyzing and constructing real values, is 
provided as a library unit called REALMODES, which is described in 
Appendix A and Appendix E. 


Page 32 
The syntax diagram appearing on page 52 showing variable reference should 
have square brackets, not parentheses, around "expression". 


Page 134 

Manv of the assignment statements in the section on Variant Records will 
provide incorrect results. This is because the conpiler only recognizes the 
first eight characters of an identifier, and many of the identifiers used in 
these examples are not unique within the first eight characters. For 
example, on page 134, the assignment statement: 


LASTNAME :=LASTNAME TN 


will not change the value of the variable. The effect of the statement is 
actually: 


wASTNAME : =LASTNAME 


If LASTNAMELN is changed to LASTNAMIN, the statement will work as intended. 
This change will make the first eight characters unique. 


Page 147 
The following sentence should be added to the paragraph next to the eye 


symbol: 


All pointer variables should be initialized to NIL to avoid this 
problem. 

Page 147 

The following syntax diagram should appear at the bottom of page l4/: 


(Continued) 
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T----— 4---— 4-----------------4--- — +---+ +--—+ 
| 


-> | NEW | - | ( | -> | pointer indentifier | -> |) I-> |; | 
eu ee + gea +4 


+----—+ T--— + 


Page i64 
“asert the following section before the section entitled “the CLOSE 


2rocedure" on the bottom of page 164. 
Subdirectory files can be created using REWRITE to open them and 
read using RESET to open them. Writing to a subdirectory file is 
not permitted at any time. 


To create a subdirectory, place the directory-specifier character 

c's. after the file name in the REWRITE statement. The file name 

vou specify is actually the subdirectory name. For example, 
REWRITE (OUTFILE,^/WORK/SUB![2]^) 
CLOSE (OUTFILE,LOCK) 

reates a 2-block subdirectory file named /WORK/SUB on a volume 


cre 
C You can then make use of the subdirectory in 


named /WORK. 
subsequent file specifications; for example 


REWRITE (NEWFLLE, /WORK/SUB/MYFILZ.DATA') 


CLOSE (NEWFILE,LOCK) 
“hese statements cause the Pascal operating system to make an entry 
is the /WORK/SUB subdirectory file pointing to a file called 
“YTILE.DATA on the volume /WORK. 


read the contents of the subdirectory file, open it with the 


“SIT procedure; for example 


RESET (INFILE, /WORK/SUB') 


md iE m 
If you open a volume name with RESET using the 505 pathname format 
RESET (INFILE, /WORK') 
If you 


the result will be to open the root directory as a file. 
want to perform device 1/9 on a volume using the BLOCKREAD function, 


you must specify an Apple II format volume name when you open the 


volume; for example 


RESET (INFILE, "WORK: ) 


(Continued) 
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EYE 
REWRITE of a volume name using the SOS pathname format is not 
allowed because the form 
REWRITE (OUTFLLE,~/WORK” ) 
instructs the Pascal operating system to open the root directory of 
/WORK for write access. If you want to perform device I/O on a 
volume using the BLOCKWRITE function, you must specify an Apple II 
format volume name when you open the volume; for example 
REWRITE (OUTFILE, WORK:^) 
Page 189 


Insert the following paragraph above the first item at the "hand" symbol. 


There is no practical limit to the number of digits that can be read 
for a REAL variable. The actual limit is in the low hundreds of 
characters. All of the digits read will contribute correctly to the 
conversion, although it will be rare for more than 9 digits to be 
significant. The upper limit on the magnitude of a REAL exponent is 
in the low thousands. 


Page 190 
Replace the first paragraph with: 
READ will accept "NaN" (any combination of upper- and lower-case 


characters with an optional leading sign) as a REAL value which is 
"not a number’. 


. 
he last parasraph on the page, insert “or REAL after "When an 


Page 193 
Replace the first paragraph with: 


For writing REAL values, the width expression” governs the number 
of significant digits to which the "value expression" is rounded. 


Only enough digits are written to fill the specified width unless a 
"decimal places expression" overrides the specified width. 


(Continued) 
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Page 193 

In the fifth paragraph, replace the clause “If the number of decimal places 
is not specified " with "If neither the number of decimal places nor the 
width is specified for a REAL number’. 


Page 193 
Delete the sixth paragraph and the entire “hand” symbol section. 


Page 232 
The last paragraph on page 232 begins with the sentence “Units reside in 
Libraries". This sentence should read: "Units are most effectively used 


when several of them are stored within a library, which can be created using 
the LIBRARY utility." 


Page 235 
In the "hand" symbol paragraph, change "intrinsic units" to "regular and 
intrinsic units'. 


Pages 241 

The first sentence of the last paragraph on page 241 should be changed to 
read: "The IMPLEMENTATION begins by declaring those labels, constants, 
types, and variables that are private..." 


Page 242 


Ihe last sentence should be changed to read: "Note that USES declarations 
are not allowed in the IMPLMENTATION. 


Dao 257 


The syntax diagram for an IMPLEMENTATION on page 242 should include "type 
declarations” between the blocks for constant declarations and variable 
declarations. 
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This information also appears in Apple publication P31-P237-B. 


Page 2 
Replace the third paragraph with: 


The REALMODES unit contains the remainder and square root functions. 
(See Appendix A.) It also contains functions and procedures for 
controlling and diagnosing the results of real arithmetic, and for 
analyzing and constructing real values. (See Appendix E.) 


Page 5 
In the paragraph on NaNs, replace the word "trapping on line 5 with the 
word “signalling”. 


Page 5 
Replace the entire section entitled "The Remainder (REM) Function" on pages 
5 and 6 with: 


The REM(x,y) function, which is always calculated exactly, is 
defined by the following relation: 


REM(x,y) =x- y*n 


where n is the integer nearest x/y. When the fractional part of x/y 
is exactly 1/2, then n is the even integer nearest x/y. (For 
example, if x/y = 3.5, then n = 4; if x/y = 6.5, then n= 6.) The 
relation holds except when 


y is zero; 
x is infinite; or 
y is denormalized and Warning mode is set. 


For any of these exceptions, the Invalid Operation Signal will be 
set. If the Halt on Invalid switch is not set, a diagnostic (NaN) 
will be returned. 


Page 33 
The manual explains how to load character sets, but it doesn’t mention that 
a character set editor is required to generate or modify a character set. 


Page 36 
Replace the next-to-last paragraph with: 


(Continued) 
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Successive reads from the graphics driver return the color of the 
pixel at the current cursor location. 


Also note that it is faster to maintain a copy of the state of the Graphics 
Driver in a data structure rather than to read it from 505. 


Page 63 
In the Specific Number Formats Table at the bottoms of page 63, the 
"Interpretation" column for row "Denormalized Numbers" should read: 


(SI) S*20ES126) (0,1) 


Page 69 
The footnote to the figure on page 69 (NaN diagram) should read “Signalling 


bit" rather than "Invalid Operation bit". 


Page 74 
Replace the first three sentences in the second paragraph with: 


The decimal-to-binary conversion signals underflow whenever a 
nonzero input produces a zero or denormalized result. It signals 
overflow whenever a finite input exceeds the largest representable 
number. It signals inexact whenever the conversion is not exact. 


Page 74 
Insert the following paragraph after the second paragraph on page /4. 


The textual representation of the number to be read by the READ 
procedure may not exceed 300 characters, and the absolute value of 
its exponent must be less than 2599. Since these limits generously 
exceed the bounds of the internal storage format and the precision 
of the arithmetic, you should never encounter then. 


Page 75 
Insert the following paragraph before the section entitled "Expert”s Corner” 


on page 75. 


The binary-to-decimal conversion signals inexact if the conversion 
is not exact. The rounding mode governs the decimal output. The 
directed roundings "round up” and "round down" guarantee that che 


decimal number returned is an upper or lower bound, respectively, of 
the floating-point number which is output. 


(Continued) 
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Page 76 
In the first paragraph, delete the reference to Appendix A. (All of the 
functions and procedures listed beneath the first paragraph are described in 


Appendix E.) 


Page 89 
In the last paragraph, add the following sentence: "For a description of 
the remainder and square root functions, see Appendix A. 


Page 92 

Delete the phrase "on your backup copies" in the last paragraph on page 92. 
(Although you may wish to remove SYSTEM.SYNTAX tron your online system 
configuration, you will probably want to keep a copy of it on some backup 
diskette.) 


Page 192 

Ihe example of the USING option uses Apple ][ Pascal notation for the file^s 
pathname. The Pascal /// equivelant is: 

S UNITL, UNIT2, {Found in SYSTEM. LIBRARY? 

COIND dM DISK ACODE y La LTS 

res guess SOLIBRARY + OUNITO, NETO; 


Page 198 
Delete the two references to the SETC option. 


Page 123 
Insert the ¿ollowing paragraph before "PROGRAM REALSIIS" in the middle of 


nS A de 


Sage 123. 


The sample program REALBITS is provided for iilustrative purposes 
oniy. To analyze and construct real ralues, vou should use the 
special functions COPYSIGN, NEXTArics, LOGS, and SCALB, which are 
provided in the library unit REALMODES for this purpose. (See 
Appendix E for details.) 


Page 154 
Remove error numbers 7, 14, and 15 from the list. ‘ote that for Stack 
Overflow (error number 4), segment number, procedure nunber, and byte number 


are not displaved. 


Page 155 
Make the following changes to Table 2: 


(Continued) 
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Add: L Out of filename storage space 
Add: 4 Illegal directory spec 
Replace: 15 Wrong disk format 
(replaces “Ring buffer overflow”) 
Delete: 19 Too many files open for system to handle 
Page 159 


In the first paragraph, delete the words "system diskette" from the second 
sentence and delete the word “diskette” from the third sentence. In the 
second paragraph, change the words “system diskette” to “online diskettes” 
in the second sentence. 


Page 163 
The explaination for error #494 should read: 


Bad open, read, or write to file SYSTEM.INFO. SYSTEM.INFO is a 
temporary file on the system diskette (*) created and later deleted 
by the Compiler. 
[Possible causes include: 

- not enough room on the system diskette, 
stem diskette not on line; 


v 


“stem diskette write protected. | 


cM = 
S 


— d 
= 


Page 10) 
Change "drive" to "driver" in the sixth line from the bottom of page 165. 
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ERRATA - INTRODUCTION, FILER, AND EDITOR 


This information also appears in Apple publication $31-238-B. 


Page 5 
The last sentence of the paragraph beginning "To use any given option..." 
should be replaced by the following sentence. 


The requirements for the use of all the Apple /// Pascal system 
options are provided in Appendix C of the Apple /// Pascal Prograu 
Preparation Tools manual. 


Page 6 
The following paragraph should be included with the discussion of the 
contents of system diskettes on page 6. 


The complete Pascal system library is too large to fit on the 
diskette PASCALl. The file SYSTEM.LIBRARY on that diskette is a 
subset of the complete library file SYSTEM.LIBRARY on PASCAL3. 


The file SYSTEM.LIBRARY on diskette PASCALI contains only the units 


APPLES LUPE 
CHAINSTUFF 
LONG LAT LU 
PASCALIO 


The file on diskette PASCAL3, also named SYSTEM.LIBRARY, contains 
the units 


APPLESIUFE 
CHAINSTUFF 
LONGINTIO 
PASCALIO 

PGRAF 
TURTLEGRAPHICS 
REALMODES 
TRANSCEND 


Page 7 
The section given below should be inserted at the bottom of the page. 
The files on EDITl should include the following: 
SOS.KERNEL 
SOS.INTERP 


SOS.DRIVER 
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SYSTEM.PASCAL 
SYSTEM.MISCINFO 
SYSTEM.EDITOR 
SYSTEM.FILER 


Before you try this and find that there is not enough room on the 
diskette for all the needed files, you will have to compact 
SOS.DRIVER by using the SCP option on the SOS Utilities diskette: 


Remove everything in SOS.DRIVER that is not absolutely needed for 
your text editing work. The minimum SOS.DRIVER configuration will 
contain only 


. CONSOLE 


and, depending on the type of printer you have, either .PRINTER, 
.SILENTYPE, or .PARALLEL. If you have no prínter attached to your 
Apple ///, then you can dispense with all the different printer 
drivers. .AUDIO is not strictly required, but if you remove it you 
will not longer receive beeps as prompts or warnings from your 
system. The use of SCP is described in the Apple /// Owner^s guide. 


Page 12 
The description below should be inserted at the bottom of page 12. 


Since vou will often want to spread information used by a given 
program over two or more diskettes, Apple /// Pascal allows you to 
insert and remove diskettes during a given program's operation. 
(Don’t ever do this when the "in use" light on the front of the 
drive is on!) 


If you have replaced a diskette in a given drive with another one, 
and your program needs to refer to a file on the original diskette, 
the message 


Insert volume:  PASCAL2 
in device: DZ 
the press the ALPHA LOCK key twice 


(or something equivalent, depending on the needed diskette and 
drive) appears to prompt you for the correct diskette to insert. 
Insert the diskette in the proper drive and press the Alpha Lock key 
twice, and operation will continue. 


Page 21 
Add the following paragraph immediately after the paragraph on page 21 
beginning "You can pick..." 
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Setting option A maximizes the amount of memory available to any 
program, and should be used for all programs not actually needing 
graphics space. All other options allocate space for graphics, 
leaving less space available for programs to use. 


Page 21 

Add the following paragraph to the paragraph beginning “Option Dos. ON 

page 21. 
You can use disks formatted with the Apple j[ Pascal format whether 
or not the Apple ][ disk routines are resident. If they are 
non-resident, some input and output operations will be very slow 
since the Apple ][ disk routines will be re-loaded from disk each 
time they are needed. 

Page 25 


The summaries of the Initialize and Halt commands on page 25 should read as 
follows: 


initialize Re-initializes the system. 


Halt Does a warm boot of the system. 


Page 64 

Delete the words "SYSTEM.PASCAL, or SYSTEM.FILER" from the "Hand" notice on 
that page since the restriction no longer applies to those system files. 
Also change "/PASCALl” to "the system diskette’. 


Page 68 
The description of the Change command on page 68 should include the 
following paragraph. 


When a disk cannot be operated on because another volume of the same 
name is on line, you can change the name of the duplicate volume 
with the Change command to some unique name and then use the disk 
normally. For example, if drives .Dl and .D2 both contain diskettes 
named /WORK and the Filer is being operated fron ‚Dl, the volume in 
.D2 will be inaccessible. If you type 


C.D2,/TEMPNAME 


the volume in .D2 will be changed to /TEMPNAME and will then be 
accessible. 


(Continued) 
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Page 73 
Replace the last paragraph on page 74 with the following paragraph. 


The only time that the system prefix is ignored by Apple /// Pascal 
is when you specify a root volume name using Apple ]{ Pascal 
pathnames. 


Page /5 
Replace the last sentence of the first paragraph describing the Filer’s Date 
command with the following sentence. 


Each time a volume, directory, subdirectory, or local file is 


created or updated, the current system date is included in the 
directory entry. 


Page 
Delete "directory" from the list of filetypes that may be changed with the 
Alter command. 


The Pascal Filer uses several different symbols to designate different 

of files or different types of operations to be performed on files. 
File Specification summary on page 87 gives an incorrect description of 
function of the symbol "?". The description should read as follows: 


? Another wildcard specification, which allows verification of 
each file during the operation. 


The description of the Zero command given under the heading “General 
«file Commands” on page 88 is incorrect. It should read: “Removes the 
iles contained within a specified directory or subdirectory.” 


Page 93 
Change "right" to "left" in the last paragraph. 


Page 94 
111 references to "CTRL-C" should be changed to "CONTROL-C'. 


E 


, 
fu 


ge 95 
1 references to "CTRL-C" should be changed to "CONTROL-C". 


e 
fa 
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Page 101 
All references to "CTRL-C" should be changed to "CONTROL-C'. 


Page 161 
Change "Update or Save" to "Update, Save, or Write" in the last paragraph on 
the page and add the following paragraph. 


when vou update a text file that you are working on with the Editor, 
you will almost always use either the Save option or the Update 
option (if you are using the system workfile). When you create a 
new file, however, the first time that you save your work you will 
want to use the Write option to create the new file on disk. 


Page 192 
Ihe second group of Editor 2uit command options should read as follows. 


To store Text tile on disk, type 
w(rite to a new file name 
U(pdate /NEWPASCAL2/SYSTEM.WRK.TEXT 
S(ave /MYFIRSI/PROGRAM.TEXT 


Page 115 
The example of how to use the Find command given on pages 114 and 115 will 
not work properly unless the lines beginning "After typing JB to Jump..." 


are changed to read: 


tty 


"After typing JB to Jump to the Beginning of the file, enter 
>F/WRITE/ 


This changes the set direction to forward again, and locates the 
first occurrance of the Token string WRITE. Now, typing 


ES 


Page 118 
The example given at the top of page 118 of how to Set the environment for 
programming mode must be terminated with a CONTROL-C, not with a RETURN as 


indicated. 


Page 136 
The Adjust prompt line shouid read as follows. 
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>Adjust: Left, R(ight, C(enter, <Moving keys>, <ctriC> accepts, 
<esc> escapes 


Page 137 

The long example in the middle of page 137 shows you how to manipulate one 
line of text using the Adjust command. After moving the line to the left of 
the page, and centering the line, you are instructed to type: 


AL<left-arrow»<left-arrow><left-arrow»<CONTRUL-C> 


to begin the line in the fourth column from the left margin. These 
instructions should actually be: 


AL<right-arrow><right-arrow><right—arrow><CONTROL~C> 
Page 139 


The Environment parameters given for the example on page 139 are incorrect. 
They should read: 


Left margin 2 
Right margin 64 
Paragraph margin 0 
Page 141 
The paragraph that begins "now type the name...” should have the phrase 
"...except a carriage return..." removed. 
Page 144 


In the description of Indent-auto on page 144 , the "AT" in the second 
paragraph should be "IT" and the "AF" in the third paragraph should be 
changed to "IF". 


Page 148 i 
The heading for the second set of of Editor Quit options on page 148 should 
read as follows. 

To store Text file on disk, type 


Page 149 
On the last sentence on page 149, delete the phrase "...all or most of... . 


Page 169 
The following paragraph should be included with the "Eye" notice on page 169 
that describes the duplicate volume problen. 
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The duplicate volume can be made accessible by using the Filer’s 
Change command to change the name of the volume. See the 
description of the Filer/s Change command for an explanation of this 
operation. 


Page 160 

The last sentence before the "iland" notice on page 160 and the last sentence 
in the third paragraph on page 160 should be replaced with the following 
sentence. 


If you want to use your Apple /// to format Apple ][ Pascal 
diskettes, first use the formatter on the Apple /// Utilities 
Diskette to make a SOS diskette, then use the ALIFORMAT program 
supplied on PASCAL3 to convert the SOS diskette to a blank 
Apple ][ Pascal diskette. 


Page 161 
Replace the phrase "A2 option set" in the third paragraph with 
"(SSETC APPLE :=2) option’. 


Page 104 
Insert the paragraphs given below after the second paragraph on page 164. 


The meaning of RESET in a root directory name is different when 
Apple j{ filename format is used. Where 


RESET(F, ^/PASCAL^); RESET(G,^.D1^) 


opens file F (or G) for reading the root directory of PASCALI (or 
the disk in .Dl), 


RESET(F, PASCAL1:"); RESET(G^ #4:7 ) 
causes F (or G) to be associated with the entire volume PASCALI (or 
the entire disk associated with unit 4), starting at block zero. 
The difference reflects the respective actions take by the Apple j| 


Pascal and SOS operating systems. 


SOS-like action can be obtained with Apple ]{ format filenames by 
appending the directory-specifier character (1) to the name ot 
the root directory. Thus 


RESET(F, PASCAL:!^); RESET(G,“#4:!7) 


is equivalent to using the SOS format as given above. 
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Note: When an Apple ][-formatted root directory is accessed using 
SOS format or "!", there is no end-of-file detection at the end of 
the directory. 


Note: The directory-specifier character is ignored in device-name 
specfications. All other uses of "!" (except the REWRITE of the 
SOS subdirectory as in Chapter 10 of the Apple /// Programmer’s 
manual) are illegal. 


Page 164 
The following line should be iserted in the table on page 164 before the 
line beginning "Built-in drive...". 


Graphics .GRAFIX #3: (or GRAPHIC:) 


Page i64 
In the "*Xote" paragraph on page 164, "the standard names” should replace 
the phrase “its name". 


Page 134 

Table D-3 gives the files reloaded when particular commands are executed. 
Under CONTROL-RESET, the file labeled SOS.MISCINFO should be 

SYSTEM MISGINFO: 


Page 185 
The bottom of page 185 shows a list of files to use on a turnkey diskette. 
SYSTEM. CHARSET should be deleted from this list. 


Page i80 

The paragraph under “The System Diskette Files” refers you to a table called 
"Ihe System Diskette Files: By Command". This table appears in Appendix C 
of the Program Preparation Tools Manual. 


Page 186 
Table D-4 lists the system files residing on each PASCAL diskette. The list 
of files appearing on the PASCAL3 diskette should include SYSTEM.LIBRARY. 


Page 189 
Page 189 gives information on changing Editor key assignments. The column 
of the table for the Current Value of Option C should read: 


24 => <ctrl>-X 
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Page 197 
The numbered paragraph below should be included in Appendix F on page 197. 


7. Programs must anticipate longer pathnames on the Apple /// than 
those used on the Apple ][. Programs that do pathname parsing must 
take into account the differences in the pathnames used by the two 

systems. Apple /// programs that do RESETs of root directories will 


have to be changed to begin reading from block 2 on Apple ]I format 
diskettes. 
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ERRATA - PASCAL PROGRAM PREPARATION TOOLS 


This information also appears in Apple publication 931-239-B. 


Page 6 

In paragraph (4) at the top of the page, delete "SYSTEM.LIBRARY" from the 
first sentence. At the end of the paragraph, add: "Transfer file 
SYSTEM.LIBRARY from PASCAL3 to NEWPASCAL2." 


Page là 
In the third paragraph from the bottom of the page, change <CR> to «ret». 


Page 14 
In the second paragraph from the bottom of the page, after the word 
".PRINTER", add: "or whatever the name of your printer driver is." 
Page 22 


In the paragraph at the top of the page, change <cr> to <ret>. 


Page 22 
In the last paragraph, delete “containing information that will be needed if 
the Linker is used. 


Page 30 
In the second paragraph, change <CR> to <ret>. 


Page 49 
In the programming example, the third line from the end should be 
LDY #19 
Page 51 
At the end of the second paragraph from the bottom of the page, add: A 


single assembly program cannot contain more than 4 .PROC and «FUNC 
directives.” 


Page 66 


In the third paragraph from the bottom of the page, change <CR> to «ret». 
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Page 84 

The second paragraph on page 84 specifies that the program library must be 
on the same volume as the program codefile. This is incorrect; it must be 
in the same sub-directory as the program codefile. 


Page 94 

The paragraph beginning “Typing an asterisk..." on page 94 contains an 
incorrect pathname. The reference to */SYSTEM.LIBRARY should be 
ASYSTEM.LISRART, 


Page 103 

This page contains an exauple that illustrates the creation of a regular 
unit within a program library. A comment within the Implementation section 
of this unit reads; 


Zxternal procedures are only allowed in the implementation 
nart of units. ; 


Ihis is incorrect. Procedures declared in the interface can be external 
4hen defined in the implementation. 


Page 113 
In the fourth paragraph, in the last sentence, add: "and the file 


rao = t- 14 
SS te AL a Lá 


Page 290 
In the table of system files at the top of the page, under PASCAL3, add 


N P oce ~ Y r r r 
a Y 2i zx rS AE AI 
5 as L as as Do ae ral Ne Aa. de IR 


Page 120 
After the paragraph describing PASCAL3, add the following paragraph: 
The file SYSTEM.LIBRARY on diskette PASCALI contains only the units 


APPLESTUEF 
CHAINSTUFF 
LONGINTIO 
PASCALIO 


Page 121 
At the end of the paragraph describing NEWPASCAL2, add the following: 


The file SYSTEM.LIBRARY on this diskette is the version supplied on 
diskette PASCAL3. It contains the units 
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APPLESTUFF 
CHAINSTUFF 
LONGINTIO 
PASCALIO 

PGRAF 
TURTLEGRAPHICS 
REALMODES 
TRANSCEND 


Page 122 


In the section under Compile, in the SYSTEM.SYNTAX entry, delete "Pascal 
svstem diskette, built-in drive" and substitute "any diskette, any drive." 


Page 123 | 
In the section under Run, in the SYSTEM.SYNTAX entry, delete "Pascal system 
diskette, built-in drive" and substitute "any diskette, any drive." 


Page iy; 
In the next to the last paragraph, in the last line, change "FILE input" to 


I" au 1 . - 1.1)? m E 
tile M NE" 


Page 144 
Before the next-to-the-last paragraph, insert the following: 


Stack-overflow errors are reported in the following form: 


Stack overflow 
Type <RETURN> to continue 


^, P#, and If are not reported, and you press the RETURN key rather 


> 


than the space bar to continue. 


Page 144 
At the bottom of the page, add the following: 


In general, error number 4 (stack overflow) indicates that the 
program has run out of memory in the stack/heap space. There are 
several possible causes: 


Too much memory has been allocated to graphics space, 


reducing the amount of memory available for program code and 
data. Use the Options command to reduce the size of the 
graphics space. 
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The total data space needed by all active procedures exceeds 
the available stack space, and the program has attempted to 
allocate too much space on the stack. 


The program code exceeds the space available for code. 


The program has gone into infinite recursion and filled up 
the available stack space with data. 


Page 149 
Add a new error message: 


75: Too many .PROCs and .FUNCS 
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INDEX TO PARALLEL PRINTER INTERFACE 


ALPHABETIC LISTING 


Doc Title 

093 Carriage Return Delay 

092 Controlling the Most Significant Bit 

999 Errata - Parallel Printer Interface Manual 
091 Initializing with POKEs 
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INITIALIZING WITH POKES 


Neither the PR/ nor IN# commands in Applesoft and Integer Basic initialize 
the Parallel Interface. This can cause problems for the user who needs to 
modify the parameters of the interface for his application. He must send a 
character through the interface before poking in the new parameters. The 
following list is the POKEs needed to initialize the memory locations used 
by the Parallel Interface. Please refer to the Parallal Printer Interface 
manual for more information on what each POKE will do. The letter "s" 
should be replaced by the slot number in which the interface is installed. 


19 POKE L4Ofts, 80 Carriage Width 
20 POKE 1656+s,® character counter 
39 POKE 1784+s,137 set command prefix to ctrl-I 
49 POKE 1912+s,9 no video, no linefeed 
Or mi no video, enable linefeed 
or 128 enable video, no linefeed 
or 129 enable video, enable linefeed 


The next list of POKEs will replace the PR# and IN# commands. These POKEs 
must be used to benefit from the previous POKEs. The CALL 1002 should be 
used if you will be doing DOS commands while the interface is enabled. 
However, if speed is of the essence, don’t use the CALL 1002 until after 
the data transfer has been made since DOS does slow down I/O. These POKEs 
must all be on one command line separated by colons to work in command 
mode. They can have separate line numbers in a program. 


50 POKE 54,2 PRés 
60 POKE 55,192+s 
78 CALL 1992 


The normal way to reset the 1/0 to the Apple video and keyboard is: 


909 DS = CHRS (4): REM CTRL-D 
910 PRINT DS; "PRÉP" 
920 PRINT DS;"INZó" 


However, this will only work after a PRINT and will be ignored after a GET 
or PRINT terminated with a comma or semicolon. To avoid having to do an 
extra PRINT you cau use: 


900 CALL -375 : REM THIS IS IN#® 
910 CALL -365 : REM THIS IS PR#® 
920 CALL 1002 : REM THIS RECONNECTS DOS 


SPECIAL NOTE: The Parallel Printer Interface has the option of echoing to 


the Apple^s video output. Your program or variables will suffer if you 
don’t disable the video output while printing lines more than 4f characters 


long. 
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CONTROLLING -THE MOST SIGNIFICANT BIT 


INTRODUCTION: 


This driver allows the user control bit 8 from an Apple Parallel Interface 
with a POKE. Bit 8 is used by some printers to select expanded or normal 


print mode or to enable alternate or graphics character sets. DOS 3.2 or 
DOS 3.3 is required to use this routine. It will work in the Apple /// in 
Emulation mode. 


SOFTWARE ENTRY 


First you must decide which slot the interface will go in and enter the 
driver. The routine is customized for this slot number and won't work 
properly if used with a different configuration. Enter the driver using 
the values from the table for words in brackets, & 2. 


SLOT 1 2 3 4 5 6 7 
CODE cl c2 9 (4 © 6 € 


Enter the monitor with CALL -155 and type 


3B0:A9 <SLOT> 
:20 95 FE 

:A9 86 

:20 ED FD 

:A9 C5 

193-38 

:A9 $03 

:85 37 

:AC EA 3 

:29 7F 

:ØD CD 03 

ac $2 <CODE> 
: 80 
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To check your typing, type 
3BOL 


and compare your listing to the one below for an interface plugged into 
slot l. 


03B0- A9 fl LDA #S@1 
03B2- 28 95 FE JSR | SFE95 
03B5- . A9 80 LDA — #$ 8@ 
Q3B87- 2 ED FD JSR | SFDED 
03BA- A9 C5 LDA #SC5 
Q3BC- 85 36 STA $36 
O3BE~ AI 3 LDA #583 
G3CG- | 85 37 STA $37 
03C2- 4C EA 93 JMP S@3EA 
$3C5- 29 7F AND #S7F 


Q3c7- | (D CD 03 ORA . S03CD 
Ü3CA&- 4C 42 C1 JMP SC192 
ó 3CD- 8 222 


Now return to BASIC with 3D@G 


SAVING THE PROGRAM TO DISK: 


The driver should be in memory before the printer is used. Save the driver 
by typing 


BSAVE CEN 739, AS380, LSLE 
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USING THE PRINTER: 


The first time you want to use the printer you must load the driver and 
initialize the interface. From command mode type 


BLOAD CEN 730 
CALL 944 


This may be done from a program by entering 
100 PRINT DS;"BLOAD CEN 739" : CALL 944 
assuming that DS is a control-D. 
If you want to switch back to the video monitor for output type 
PRÉ 
or in a program enter 
2090 PRINT DS; "PRÉ" 
Then to reconnect the printer, all that is required is 
CALL 954 
or from a program 


300 CALL 954 
SETTING THE PRINT MODES: 


To set normal print mode POKE 973,9 
Io set expanded print mode POKE 973,128 
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CARRIAGE RETURN DELAY 


INTRODUCTION 


This program introduces a variable time delay after printing a carriage 
return character. The delay gives slower printers time to return to the 
left margin without missing characters. DOS is required to use this 
modification. 


SOFTWARE ENTRY 


First you must decide which slot the interface will go ín and enter the 
delav program. The program is customized for this slot number and wont 
work if used with a different configuration. Enter the program using the 
values from the table for words in brackets, < >. 


The delay is measured in tenths of a second and entered in hexadecimal. 
Hence 5 is 1/2 second and A is one second. The usual default value is 95 


Enter the monitor with CALL -155 and type 


3960:A9 «SLOT? 
:09 CÉ 

:8D AC 63 

20 95 FE 

:A9 80 

:20 ED FD 

:A9 AA 

:89- 36 

:A9 3 

NEST 

:4C EA $3 

:20 82 Cl 

:C9 8D 

:DO ØE 

:A9 05 (DELAY) 


:A9 C2 
:20 A8 FC 


:E9 fl 
¿DO F5 


To check your typing for the first twenty lines, type 


390L 
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and compare your listing to the one below for slot 1. Type another L to 
list the last two lines. The information below the RTS instruction isn’t 
important. 


0390- AI fi LDA ásól 
0392- 99 CÓ ORA  #SCØ 
0394- 8D Ac G3 STA S$@3AC 
0397- 260 95 FE JSR  SFE95 


G39A- AY 86 LDA = # S$ 8 
)39C- 28 ED FD JSR SFDED 
039F- AQ AA LDA #SA5 
93Al- 85 36 STA $36 
03A3- AX 01 LDA = #$ D3 
$3A5- 85 37 STA $37 


03A7- 4C EA 03 JMP SO3EA 
PIAA- 20 $2 Cl JSR $cC1@2 


0 3AD- C9 8D CMP #S8D 

ó3AF- DO PE BNE S#3BA 
A3Bl- | A9 05 LDA #595 

2383- 48 PHA 

334- AI C2 LDA = #§C2 

0336- 20 a8 FC JSR . SFCA8 
D3B9- 68 PLA 

B3BA- E9 OL SBC #SO1 

d3gc- DØ FS BNE SO3AF 
P33E- 00 RTS 


“ow return to BASIC with 3D@G 


SAVING TEE PROGRAM TO DISK 


The program nust be in memory before the printer can be used with the 
delay. Save the program by typing 


BSAVE CR DELAY, AS39@, LS2F 


USING THE PRINTER 


The first time you want to use the printer you must load the program and 
initialize the interface. From command mode type 


BLOAD CR DELAY 
CALL 922 


This may be done from a program by entering 
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Issued 12 Jul 82 Parallel Printer Interface Page 6200.9003.93 
199 PRINT D$;"BLOAD CR DELAY” : CALL 912 


assuming that DS is a control-D. 


If you want to switch back to the video monitor for output type 
PR 
or in a program enter 


200 PRINT DS; "PR#O” 


Then to reconnect the printer, all that is required is 
CALL 938 
or from a program 


30% CALL 938 


NOTES 
The delay can be adjusted from BASIC with: 
POKE 946,<DELAY> 


The delay in this case is in decimal. Then BSAVE the program again. 
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DIRECT CONTROL FROM BASIC 


Normally, all characters sent out through the parallel card go through 


Basic’s and the monitor”s character output routines. This is limiting 
because Basic and the monitor only use seven of the eight bits in each byte 
and force the eighth bit to a one. So instead of using: 


106 SLOT = 1 : REM WHAT SLOT IS THE CARD IN? 
11@ CH = 13 : REM THE ASCII VALUE TO SEND OUT 
129 PRINT CHRS(4);"PRÉ1" 

138 PRINT Ch; 


you can directly POKE a byte to the interface. This gives you complete 
control of all eight bits: 


188 SLOT = 1 : REM WHAT SLOT IS THE CARD IN? 
119 CH = 13 : REM THE ASCII VALUE TO SEND OUT 
120 IF PEEK (49345 + SLOT * 256) <128 THEN 126 
130 POKE 49289 + SLOT * 16, CH. 


Line 129 is waiting for the printer to acknowledge the receipt of the 
previous character. 
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IS THE PRINTER ON-LINE? 


The following short program tests to see if the printer is ready to receive 
characters while retaining control within the Basic program. If the printer 
isn't ready, the program can prompt the user to fix 1t. 


19 
29 
39 
49 
59 
60 


SLOT = | 

DEVICE = 49288 + 16 * SLOT 

POKE DEVICE, 141 

FOR I = 1 TO 2@ : TEMP = PEEK(493445 + 256 * SLOT) : NEXT 
IF TEMP <> 254 THEN (the printer is ready) 

IF TEMP = 254 THEN (the printer isn't on-line) 
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ERRATA - PARALLEL PRINTER INTERFACE MANUAL 
030-0005-91 


Page 6 

Throughout the Parallel Interface Manual, a negative going acknowledge is 
shown as ACK (with a bar over it) and a positive going acknowledge as ACK 
(without the bar). Therefore, when choosing a jumper block for printers 
that have a negative going strobe and negative going acknowledge signal 
find the jumper block on page 6 that is labeled (bar STR)-(ACK). 


Page 17 
Ihe command "Ctrl-I I RETURN" has no effect with the Centronics version of 
this card. Use "Ctrl-I O RETURN" instead. 


Page 17 
The command "Ctrl-I K RETURN" has no effect with the Centronics version of 
this card because it never generates a linefeed. 


Page 18 
Notes: For users of Applesoft BASIC... Applesoft allows the "PR#" 
command. The rest of the note is still valid but of limited utility. 


Page 18 

Using Printer Commands in BASIC Programs: 
210 PRÉ Turns off Printer Card. should read 
510 PR#1 Turns on Printer Card. 


Page 18 
For the Centronics version of the card, Using Printer Commands in BASIC 
Programs: 


230 PRINT "^r I" should be 
230 PRINT "^I O” 
249 PRINT "^I K" does not turn off the Line Feed as there 


never was one. 
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Page 19 
For the Centronics version of the card, the section "Example Of Control 
From a BASIC Program" needs updating: 


(20 PRINT "^IK";) is never needed or valid 


250 PRINT "^II'"; should be replaced with 
>5 PRINT "^IO'; 


Page 19 
For the Centronics version of the card, Listing Prograus Coutaining Print 
Commands 


>“IK is never needed or valid 
Page 21 
The address to POKE from Basic is really 


PORE (—19256-- N 15) 
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PRINTING 


The current design of Personal Finance Manager will not allow printing the 
complete database. It only allows printing the data that is on the screen. 
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LINKING FROM PILOT TO PASCAL 


Ihe LP:filename command will leave the PILOT interpreter, and execute the 
Pascal program in the file "filename". If you are in a PILOT lesson, and 
wish to use a Pascal program which is located in the fíle MYPROG.CODE, 
insert the following command in your lesson: 


LP:MYPROG 


The LP stands for Link to Pascal. Note that you do not have to put the 
".CODE" suffix on the file name; PILOT will automatically append it. 


IMPORTANT: You MUST use Pascal version 1.0 to compile your Pascal program. 
If you use any UNITs from the SYSTEM.LIBRARY, you must compile using the 


SYSTEM.LIBRARY file provided on the PILOT LESSONI: student diskette. The 
(*SU name *) compiler option will allow you to do this. 


When the LP: command is performed, control leaves the PILOT interpreter. 
Any open PILOT data files are closed when this happens, and the status of 
PILOT variables and your location within the PILOT lesson will no longer 
remain in memory. 


When the Pascal program ends, the system will reboot, and you will re-enter 
your PILOT "HELLO" lesson. Thus, if you wish to return to a particular 
point in a PILOT lesson, you must have your PILOT program "leave a trail" 
for PILOT to pick up. 


As an example, let's say you want PILOT to return to lesson MECHANICS, at 
the label BOLTS. Your lesson might do this: 


D:NS(59) 
T:Going off to Pascal... 


R:Open file "restart" 
C:NS="RESTART" 
FOX:L,NS 


R:Leave a trail in the form of the 
R:appropriate L: command 

C:NS="L: MECHANICS, BOLTS” 

FO? 1 NS 


R Go off to Pascal file MYPROG.CODE 
LP:MYPROG 
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The HELLO lesson on the PILOT disk will look for the RESTART file, as 
follows: 


D: NSC50) 
C: NSS"RESTART " 
FIX: LNS 


R: If error flag is raised, the RESTART file 
R: does not exist, so link to the normal first lesson 


LE: FIRSTLESSN 


R: Otherwise, read in the record containing our 
R: restart lesson and label, and link there. 


FI:1,NS 
XI:NS 
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CONTROLLING MEMORY MAPPED I/O 


Many Apple II compatible I/O devices are memory mapped, and can be 
controlled directly from Apple PILOT. The PILOT system variable AM is 
actually a memory map, which is controlled by a subscript. The value of 
the subscript defines the location in the I/O device control space which is 


addressed by 4M. 


The I/O locations begin with address C#8f (hex). This constant offset is 
added automatically to all XM locations. %M(16) thru »M(127) will address 
the device control space of slots 1 thru 7 (access to slot Ó is not 
permitted). %M(128) thru ZM(1919) refer to the I/O select space of slots 
1-7. The I/O select space is typically used for ROM memory, but can be 
used in some cases for auxiliary device control information. 


For example, the PILOT command 
C: $MC16) = Ó 


will “pose” a zero into I/O location 16, which is the first available byte 
(reiative location zero) in the device select space of slot l. Similarly, 
tne command 


x = 2M(29) 


will “vee” location 20 (relative location 4 in slot 1), and return the 
result in variable X. 


at may be used generally wherever the system variable “A is legal (for 
example}. It cannot be used to manipulate program memory from within PILOT 
lessous, but does provide some measure of external device control. 


CAUTION: The %M variable is a very powerful construct. It is assumed that 
the author takes full responsibility for its use. Some 1/0 devices can be 
damaged by indiscriminate “peeking” and “poking”. In particular, DO NOT 
try to manipulate any of the device controls for slot 6 (the disk 
controller). It is entirely possible to erase entire tracks on one or both 
of your PILOT disks (Author and Lesson), and render them permanently 
unuseable. 
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HOW TO READ APPLE PILOT DATA FILES FROM PASCAL 


From the Apple PILOT user^s viewpoint, data files appear to be text files 
(i.e. files of strings), which are also randomly accessible. The file is 
actuallv block structured, however, with two strings of length 255 per 

block. Records Ó and 1 are contained in relative block zero, 2 and 3 are 
in block 1, etc. The Pascal construct which defines this file format is: 


VAR PILOTFILE: File of String [255]; 


The data record associated with this file will have the descriptíon 
PILOTFILE^, and will appear to be a string of length 255. The fíle may be 
sequentially or randomly accessed using the commands GET, PUT and SEEK (see 
the Pascal Language Reference manual for details). 


To open an existing file, use the RESET command. A new data file may be 
created using REWRITE (these are the same as the PILOT commands FIX: and 
FOX:, respectively). Always CLOSE a new file using the LOCK option, or the 
data file will not be retained permanently in the diskette directory. 


The PILOT command LP: PASCALPGM will Link to the Pascal program contained 
in the file PASCALPGM.CODE. If this program requires any library intrinsic 
units, it MUST be compiled using the library found on the Apple PILOT 
Author Diskette (or Lesson Diskette), and using the Pascal 1.9 compiler. 
This is because the Apple PILOT system uses a special 48K run-only version 
of Pascal 1.0, which requires different intrinsics due to its unique 
storage allocation. 


The linkage from PILOT to Pascal is one-way only. Data cannot be 
transmitted from PILOT to Pascal, except by data files (on diskette). When 
the Pascal program ends, the lesson diskette will re-boot automatically and 
begin execution of the HELLO program (if any). Please note also that 
programs running in this environment have approximately lK less user 
storage than in the standard Pascal system. 


The first compiled procedure in the outer block of any Pascal program 
running under the Apple PILOT 48K system should be 


PROCEDURE SYSERROR; 
BEGIN 
END; 


System errors will automatically divert control to this procedure, with 
IORESULT set to the corresponding error number. The default action is: 

(1) if the error is recoverable, abort execution of the procedure currently 
being executed, and resume execution of its calling procedure, or (2) if it 
is not recoverable, terminate the program with an appropriate error 
message. If you desire any additional error checking or recovery, it 
should be done in this procedure. 


(Continued) 


APPLE TECH NOTES Copyright (C) 1981 by Apple Computer, Inc. 


at cc see eee ee ee ee mi M A OA «o ee Á pe m. ee min 


cy A ce ie Ps cundo “he ís má cree cam am ee ee SEE m ee 


—y ye ee GEM ee ee Gum ee ee eee ee ee ee ee um 


—-— MR Ad A ee ee eee ee CAES COS aem ee ee ee uime ui ee es A - EE {Á ee m— — 


As an example, here is a listing of a Pascal program which will print the 
contents of any Apple PILOT data file: 


PROGRAM DATALIST; 


VAR PILOTFILE: File of String [255]; 


FILENAME: String; 
RECNO: Integer; 


PROCEDURE SYSERROR; 
BEGIN 
END; 


PROCEDURE PAUSE; 
BEGIN 
WRITELN; 


WRITE (“Press RETURN to continue...^); 


READLN; 
WRITELN 
END; 


BEGIN 
PAGE (OUTPUT); 


WRITE (“List which data file? ^); 


READLN (FILENAME); 
WRITELN; 


FILENAME := CONCAT (FILENAME,^.DATA^); 
RESET (PILOTFILE, FILENAME); 


RECNO := Ó; 


WHILE NOT EOF (PILOTFILE) DO BEGIN 
WRITELN (“Record ^,RECNO,^: “,PILOTFILE”); 


GET (PILOTFILE); 
RECNO := RECNO + 1; 


IF RECNO MOD 20 = Ø THEN PAUSE 


END; 
WRITELN; 


WRITELN (“End of file: 


PAUSE 
END. 
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UPPER AND LOWER CASE 


Pilot supports upper and lower case through tne standard Apple keyboard and 
display. When enabled, upper case will be displayed as inverse video, with 
lower case as normal video. In this mode, all input will be lower case 
(normal video) unless a CTRL-W or CTRL-E is typed. 


Pilot also has the capability of sensing the shire key if the key is wired 
to SW2 on the game I/O connector (refer to Apple Tech Note 13090.991). In 
this case, pressing the shift key will close SW2, and Pascal will shíft to 
upper case as long as the shift is held down. 


A number of game 1/9 devices can interfere with this function, however, pre- 


venting normal upper/lower case from being used, despite the control 
functions typed. The SW2 sensing will override the control characters used 
from the keyboard. If Pilot will not generate anything except upper case, 
try removing whatever device has been plugged into tne game I/O port, and 
cry typing again. 
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PLAN89 AND THE APPLE /// 


The Plan8ß package won^t work on the Apple /// in emulation mode because it 
is written in Pascal and there is no Language Card in the Apple ///. 
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INTERACTLON WITH THE APPLE /// BUILT~IN MEMORY TEST 


The built-in memory test in the Apple /// that starts at $F6E6 will not 
work properly with the Profile connected or even with the Profile interface 
card installed. With everything connected it will successfully complete 
the first pass and then start beeping about once a second. With the 
interface card installed and the cable to the Profile disconnected it will 
loop through the memory test, possibly showing memory errors and printing 
"ROM ERROR" below the diagnostic display. Removing the interface card from 
the Apple /// will allow the memory test to run properly. 


The Apple /// Confidence Disk will work properly! 
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PROBLEM SAVING FILES FROM THE ORIGINAL VISICALC 


The original version (SOS dated 21 Nov 898) of Visicalc /// will return a 
DISK FULL error if you try to save a worksheet with a new pathname. It 
works OK with an existing pathname and the current version (SOS dated 

4 Sep 81) will save to new files as well as existing files. 
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MEMORY TEST BUG 


The memory test in the Programmer”s Aid #1 has a problem. The routine 
that prints the error address is wrong in the ROM. According to the 
listing on page 86 of the manual, $D679 contains 20 8A D6 when the ROM 
contains 4C CB @2. This causes the program to jump to $02CB where there 


normally isn^t any program. You can patch around this problem by entering 
the following instructions in the monitor before testing any memory: 


02CB:290 8A D6 4C 73 Dp 
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MEMORY TEST AND DOS 


Any attempt to test the memory used by DOS will cause the Apple to hang 
unless DOS is disabled first. That is because all input from the keyboard 
and output to the screen goes through DOS and DOS gets erased during the 
memory test. DOS can be disabled by typing FE89G FE93G from the monitor. 
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APPLESOFT AND THE PROGRAMMER’S AID 


The Programmer”s Aid #1 uses some of the same addresses as the Applesoft 
ROMS. This makes it impossible to use the PA#l while in Applesoft. The 
only way to have access to the memory test is to enter Integer Basic before 
going into the monitor. The sequence of commands would be: 


INT 
CALL -155 
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PSORT AND THE APPLE /// 


The Psort package won't work on the Apple /// in emulation mode because it 
is written in Pascal and there is no Language Card in the Apple ///. 
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PROBLEM - LONG. LISTS OF NUMBERS 


When a Ouick File file contains only one field the Arrange command may not 
work properly. Quick File may stop with a Pascal run-time error or just 
not sort the data. 
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STRING OVERFLOW ERROR 


When you try to save your file, Quick File /// asks for a date for the file 
catalog. If you type in eight or more characters that Quick file can’t 
convert to a valid date, the program will stop with a STRING OVERFLOW ERROR 
and you will lose all the data you just typed ín. 


This is easy to avoid by checking the date that you enter before pressing 
RETURN. There are examples of what Quick File considers to be valid dates 
on page 4l of the Quick File Manual. 


One copy of the revised Quick File /// Program diskette will be sent to 
each dealer as soon as production copies are ready. The dealer can then 
update purchasers of the original version. 
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CONTROL CHARACTERS TO CONTROL THE PRINTER 


Script /// will send out control charcters if they are in the text file. 
Pressing the control key and the open-Apple key will enter the control 
character into the Pascal Editor with the most significant bit set. Script 
will then strip off the extra bit when printing. 
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CUSTOMIZING FOR A QUME PRINTER 


The following unit will allow Script to take advantage of the special 
features of the Qume Sprint 5 printer. Enter the text into the editor, 
compile it, and link it into the SYSTEM.LIBRARY. This unit can also be 
modified for other printers. 
UNIT Script Pr; 

INTRINSIC Code 25 Data 26; 

INTERFACE 


Var 


Pitch { The current pitch (characters per inch). } 
integer; 


procedure Pr Reset (var st : string); 

í Returns a string which resets the printer. } 

procedure L Marg Set (var st : string); 
Returns a string which sets the left margin. If the 
null string is returned, then a soft left margin is 
maintained by Script. 

procedure Pitch Set (var st : string); 

( Returns a string which sets the pitch. Also performs 
range checking on Pitch and forces it to a reasonable 
value before setting the pitch. } 

function Has Fine HMove : boolean; 

{ Returns TRUE if and only if the printer has a horizontal 
motion command to move relatively with increments of 
the horizontal resolution of the printer (Hor Res). If 
Has Fine HMove = FALSE, then no attempt is made to equally 
space during adjustment or centering. 

procedure H Move (d : integer; var st : string); 

( Returns a string which moves the print head ldi steps 
of size Hor Res in the horizontal direction. If d > ó, 
the move is in the forward direction; if d < Ø, then 

. the move is -d steps in the reverse direction. } 


(Continued) 
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function Esc Size (c : char) : integer; 

{ Returns the length of the escape sequence with command 
character c. An escape sequence of length zero is 
assumed to be a variable length command which ends 
with a Chr (Ø) (NULL) character. } 


funetion Char Width (c : char) : integer; 


í Returns the width of character c in horizontal 
resolutions Hor Res. ] 


function Hor Res : real; 
( Returns the horizontal resolution of the printer. } 
function Def Pitch : integer; 
Returns the default pitch. } 
procedure init Pr Params; 
Reinitializes the Script Pr parameters. ; 
function Supports Backspace : boolean; 


TRUE if and only if the printer supports backspace 
for underlining. 


1 
F 
E 


procedure Under On (var st : string); 


i Character sequence to turn underlining on. Only used 
if not Supports Backspace. j 


procedure Under Off (var st : string); 


{| Character sequence to turn underlining off. Only used 


if not Supports Backspace. ; 


{ Underlining is not attempted if not Supports Backspace 
and Under On returns a string of length 9. ) 


————— 
IMPLEMENTATION 
($C Copyright Colín L. McMaster, 1981 j 
(oR) 
(Continued) 
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($V-) 
CONST 
SUB = 26; 
US = 31; 
ESC = 27; 


{ 
{ 


H RES = 9.008333333 { 


{ 


An ASCII SUB. 
Used: Script Pr } 
An ASCII US. 
Used: Script Pr ) 
An ASCII ESC. 
Used: Script Pr } 
1.0 / 128.0 ] ; 
The horizontal resolution of 
the printer in inches. 
Used: Pitch Set, Char Width, 
Hor Res, Script Pr, 
Init Pr Params - } 
The default pitch (chars per inch) 
Used: Def Pitch, Init Pr Params } 


li 


reset string. A constant. 
Script Pr 
Pr Reset } 


{ Left margin set string. A constant. 


D PITCH = EZ: f 
VAR 
Prl { Printer 
Set: 
Used: 
string [3]; 
Pré. 
Set: 
Used: 
Pr3 ( String 
Set: 
Used: 
string [2]; 
Prá { String 
Set: 
Used: 
string [5]; 
Size 


Script Pr 
L Marg Set ) 


to set the pitch. A constant. 


OCript Pr 
Pitch Set } 


to move print head. 


Script Pr, H Move 
H Move } 


{ Table of escape sequence lengths. An escape 
sequence of length zero is a variable length 
sequence which ends with a Chr (9) character. 


Set: 
Used: 


Script Pr 
Esc Size } 


packed array [char] of $..255; 
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Last Pitch, [ The value of Pitch the last time 
i Pitch Set or Char Width was called. 
Set: Pitch Set, Char Width, 
Init Pr Params 
Used: Pitch Set, Char Width } 


C Width, i Character width for current pitch. 
= Round (1.0 / H RES / Pitch) 
Set: Pitch Set, Char Width, 
Init Pr Params 


Used: Pitch Set, Char Width } 
DOTS PER INCH { = Round (1.0 / H RES) 
Set: Script Pr 
Used: Pitch Set } 
integer; 
$ { Dummy char index variable. } 
char; 
Oc i = Ord (C), unless Ord (C) >= 128, in which 
case = Ord (C) - 128. } 
5,255: 


procedure Pr Reset i (var st : string) Fea 
Returns a stríng which resets the printer, 
Global variables: 
Set: 
Used: Prl 


Calls: Move Left 


begin { Pr Reset } 
Move Left (Pri [Ó], st [2], 4) 


end; { Pr Reset } 


procedure L Marg Set { (var st : string) } ; 


(Continued) 
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{ Returns a string which sets the left margin. If the 
null string is returned, then a soft left margin is 
maintained by Script. 


Global variables: 
Set: 
Used: Pr2 


Calls: Move Left 


begin { L Marg Set } 
Move Left (Pr2 [9], st [6], 3) 


end; i L Marg Set } 


r 
4 


procedure Pitch Set Í (var st : string) } ; 


L Returns a string which sets the pitch. Also performs 
range checking on Pitch and forces it to a reasonable 
value before setting the pitch. 


Global variables: 
Set; Pitch, C Width, Last Pitch 
Used: Pr3, Pitch, C Width, Last Pitch 


Calls: Move Left, Round 


besin. © Pitch Set } 
if Pitch < 1 then Pitch := 1 
else if Pitch > DOTS PER INCH then 
Pitch := DOTS_PER INCH, 
Move Left (Pr3 [9], st [9], 3); 
if Pitch <> Last Pitch then begin 


C Width := Round (1.0 / H RES / Pitch); 


Last Pitch-:* Pitch 
l end; 
st [3] := Chr (C Width + 1) 
end; 1 Pitch Set } 
(Continued) 
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function Has Fine HMove [ : boolean } ; 


( Returns TRUE if and only if the printer has a horizontal 
motion command to move relatively with increments of 
the horizontal resolution of the printer (H RES). If 
Has Fine HMove = FALSE, then no attempt is made to equally 
space during adjustment or centering. 


begin { Has Fine HMove | 
Has Fine HMove := TRUE 


end; { Has Fine HMove } 


procedure li Move L (d : integer; var st : string) } ; 


| Returns a string which moves the print head |d| steps 
of size H RES in the horizontal direction. If d> f, 
the move is in the forward direction; if d < ó, then 
the move is -d steps in the reverse direction. 


Global variables: 
Set: Pr4 
Used: Pr4 


Calls: Move Left 


di A 


var 
i ( Dummy index variable. } 
E E 
len { Length of the return value st. } 
0..89; 
J L If the input value d > 4995, then v 
is used to construct moves of size 
<= 4995, decrementing d until d <= 4895. } 
dt { Absolute value of d. } 
integer; 


> 


begin { H Move ; 


(Continued) 


APPLE TECH NOTES Copyright (C) 1982 by Apple Computer, Inc. 


— ee — m am am ee DE Og —À MÀ ee es ee ee es i mi es ee ee ee ee ee ee ee ee de ae ee ee eee cm ee se ee — — — ee ccc c eee ee eee 


Issued 5 Oct 82 Script /// Page 7000.002.P7 


— a ES a — E —— ie —— A M E ee m — — nid a — — — e BE e r e re P e he e àv Am — —— 0 ag — CE ——À o —— — “due cu € ncm —— ——— 


if d >= f then dt := d else dt := -d; 
st [9] := Chr (0); 
len :* f: 


while dt > f do begin 


vo dt: 

if v > 4895 then v := 4095; 

dt = dt = Vj 

for i := 5 downto 3 do begin 
Pes [1] i Chr tv mod 18) "F 54); 
v := v div i6 

end; 


itd 0 then Prs [3] == Chr (Ord. (Pra. 131) + 16), 
len := len + 5; 

st [9] := Chr (len); 

Move Left (Prá (1;, st [len - 4), 5) 


r 


function Esc Size i (c : char) : integer : ; 
Returns the length of the escape sequence with command 
character c. An escape sequence of length zero is 
assumed to be a variable length command which ends 
with a Chr (0) (NULL) character. 
Global variables: 
ser? 


Used: Size 


Calls: 


begin { Esc Size 
Esc Size := Size [c] 


end; - Esc Size 


function Char width { (c : char) : integer Lo: 


(Continued) 
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{ Returns the width of character c in horizontal 
resolutions H RES. 


Global variables: 
Set: C Width, Last Pitch 
Used: Pitch, C Width, Last Pitch 


Calls: Round 


begin i Char Width } 
if Pitch <> Last Pitch then begin 


C Width := Round (1.0 / H RES / Pitch); 
Last Plteh =- Piten 


end; 
Char width := C Width 


end; : Char Width } 


function dor Res { : real } ; 
Returns the horizontal resolution of the printer H RES. 
Global variables: 
Set: 


Used: 


Calls: 


begin L Hor Res } 
Hor Res := H RES 


end; { Hor Res } 


function Def Pitch { : integer bá 


i Returns the default pitch D PITCH. 
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Global variables: 
Set: 
Used: 


Calls: 


begin { Def Pitch } 
Def Fitch := D PITCH 


end; { Def Pitch } 


function Supports Backspace { : boolean } ; 


TRUE if and only if the printer supports backspace 
for underlining. } 


begin Í Supports Backspace } 


Supports Backspace := TRUE 


end; < Supports Backspace j 


procedure Under On L (var st : string) = 


í Character sequence to turn underlining on. Only used 
if not Supports Backspace. 


begin : Under On } 
st [Ó] :- Chr (Ø) 


end; { Under On } 


procedure Under Off { (var st : string) } ; 


( Character sequence to turn underlining off. Only used 


if not Supports Backspace. H 
begin ı Under Off } 


st [Ø] := Chr (9) 
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^ 
end; ( Under Off } 
(i Underlining is not attempted if not Supports Backspace 
and Under On returns a string of length f. } — 
ANTH ope En m ae IR E aa cha } 
procedure Init Pr Params; 
í Reinitializes the Script Pr parameters. 
Global variables: 
set: -Piteh 
Used: 
Calls: 
"ud 
begin ; Init Pr Params ; 
Pitch <> D PITCH; 
Last Pitch := D PITCH; 
C Width := Round (1.0 / H RES / D PITCH) 
end; : Init Pr Params ; " 
Dg a a S ae a le } 
BEGIN € Script Pr } | 
2073 PER INCH := Round (1.0 / H RES); 
for C := Chr (0) to Chr (255) do begin 
Oc r= Ord (6): 
1f De > 127 thew Oc: Oe = L28; 
if (Oc < 32) or (Oc = 127) then 
case Oc of 
0, 9. 11, 26, 30, 31 : Size [C] $9 3; 
otherwise Size [C] := 2 
end 
else case Chr (Oc) of 
“Lj. Lo VECQ CES CE uw $3 
"Ce cu we UR size. [Cl ei 
SH TE cg M ee a Size DO] sak 35 
"b. y^ xsize [6] am 255% 
otherwise Size [C] := 2 
end 
end; 
(Continued) 4 
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Prl [Ø] := Chr (3); 
Prl [1] := Chr (ESC); 
Prl [2] := Chr (SUB); 
Pee [3]: Ze I. 
Pr2 [9] := Chr (2); 
Pr2 [1] := Chr (ESC); 
Pr2 [2] := 797; 
Pr3. (0): 3= Chr (393 
Pr3 [1] += Cbr (ESC); 
Pro [2] := Chr (US); 
Pr4 [0] := Chr (5); 
Pra: [LL s Chr (ESCJS 
Pre: (2). e un 

ENO. E erie RE y 


APPLE TECH NOTES Copyright (C) 1982 by Apple Computer, Inc. 


— — ———  — — IE 4 Wo i —— — — — — -— na A — - HE. a —— RN RE RE ME A a SEE Gu ue ium -u— — n mn m mn c HP ARR e a i. m aw cuum cuu uuum ada uuum mida ee WEN - CUN cum Suum - VERA cuum im cium uum um ind 


Issued 5 Oct 82 Script ye) Page 70909.093.91 


"> a q e 2 Pr E EE — 2 0 “im — gl RE RE — — — — A — — IE ME IR eee ee ee o dan ee ee ee idi di d -— EE CU ee ee A— ee A ee ee ee ee A eee ee E, A — amus — 


CUSTOMIZING FOR A SILENTYPE PRINTER 


The following unit will allow Script to take advantage of the special 
features of the Silentype printer. Enter the text into the editor, 
compile it, and link it into the SYSTEM.LIBRARY. This unit can also be 
modified for other printers. 
UNIT Script Pr; 

INTRINSIC Code 25 Data 26; 

INTERFACE 

Var 


Pitch t: The current pitch (characters per inch). } 
integer; 


procedure Pr Reset (var st : string); 
Returns a string which resets the printer. } 
procedure L Marg Set (var st : string); 
Returns a string which sets the left margin. If the 
null string is returned, then a soft left margin is 
maintained by Script. } 
procedure Pitch Set (var st : string); 

i Returns a string which sets the pitch. Also performs 
range checking on Pitch and forces it to a reasonable 
value before setting the pitch. } 

function Has Fine HMove : boolean; 

f Returns TRUE if and only if the printer has a horizontal 
motion command to move relatively with increments of 
the horizontal resolution of the printer (Hor Res). If 
Has Fine HMove - FALSE, then no attempt is made to equally 
space during adjustment or centering. 

procedure H Move (d : integer; var st : string); 

{ Returns a string which moves the print head id} steps 

of size Hor Res in the horizontal direction. If d > f, 


the move is in the forward direction; if d < f, then 
the move is -d steps in the reverse direction. } 


(Continued) 
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function Esc Size (c : char) : integer; 

( Returns the length of the escape sequence with command 
character c. An escape sequence of length zero is 
assumed to be a variable length command which ends 
with a Chr (0) (NULL) character. 


function Char Width (c : char) : integer; 


Returns the width of character c in horizontal 
resolutions Hor Res. } 


tunction Hor Res : real; 
Returns the horizontal resolution of the printer. ; 
function Def Pitch : integer; 
Returns the default pitch. } 
procedure Init Pr Params; 
Reinitializes the Script Pr parameters. } 
function Supports Backspace : boolean; 


IRLE if and only if the printer supports backspace 
for underlining. ; 


procedure Under On (var st : string); 


Character sequence to turn underlining on. Only used 
if not Supports Backspace. I 


procedure Under Off (var st : string); 


Character sequence to turn underlining ofr. Only used 
if not Supports Backspace. ; 


{ Underlining is not attempted if not Supports Backspace 
and Under On returns a string of length 0. ; 


IMPLEMENTATION 
‘$C Copyright Colin L. McMaster, 1981 } 


{$R-} 
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Lo veg 
CONST 
ESC = 27; { An ASCII ESC. 
Used: Script Pr } 
H RES = 9.91515 1 1 / 66.9 } ; 
{ The horizontal resolution of 
the printer in inches. 
Used: Pitch Set, Char Width, 
Hor Res, Script Pr, 
Init Pr Params } 
D PIICH = 12; { The default pitch (chars per inch) 
Used: Def Pitch, Init Pr Params } 
VAR 
Eri String to set left margin. 
Set: Script PF 
Used: L Marg Set } 
Pr2 t String to set pitch. 
set: Script Pr 
Used: Pitch Set |} 
string [3]; 
E Pr3 String to do H Move. 
Set: Script Pr 
Used: ud Move ! 
string 12]; 

Size { Table of escape sequence lengths. An escape 
sequence of length zero is a variable length 
sequence which ends with a Chr (0) character. 

Set: Script Pr 

Used: Esc Size } 

packed array [char] of 8..255; 
Last Pitch, í The value of Pitch the last time 
Pitch Set or Char Width was called. 
Set: Pitch Set, Char Width, 
Init Pr Params 
Used: Pitch Set, Char Width } 
S (Continued) 
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C Width í Character width for current pitch. 
= Round (1.0 / H RES / Pitch) 
Set: Pitch Set, Char Width, 
Init Pr Params B 
Used: Pitch Set, Char Width } 
integer; 
C { Dummy char index variable. } 
char; 
Oc { = Ord (C), unless Ord (C) >= 128, in which 
case = Ord (C) - 128. } 
0..255; 
(77 77 } 
procedure Pr Reset i (var st : string) há 
Returns a string which resets the printer. 
Global variables: 
Set: 
Used: f 
Calls: 


begin : Pr Reset |! 


st [0] == Chr (p) 
end; i Pr Reset } 
(—-———————————————ÀÀ—ÀÀ—————————————————————9————mooTToTTTT ) 
procedure L Marg Set | (var st : string) T ; 


( Returns a string which sets the left margin. If the 
null string is returned, then a soft left margin is 
maintained by Script. 


Global variables: 
Set: 
Used: Prl 


Calls: Move Left 


(Continued) 
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T 


begin { L Marg Set } 


Move Left (Prl [9], st [Ø], 4) 


procedure Pitch Set : (var st : string) } ; 

i Returns a string which sets the pitch. Also performs 
range checking on Pitch and forces it to a reasonable 
value before setting the pitch. 

Global variables: 
Set: Pitch, Last Pitch, C Width 
Used: Pitch 


Calls: Round, Move Left 


integer; 
begin”. Bitch set 
n := Round (1.0 / H RES /Pitch); 
while n > 20 do begin 


Pitch := Pitch + |; 
n := Round (1.0 / H RES / Pitch) 


end; 


n< = 26 ; 
while n < 5 do begin 


Pitch := Pitch - i; 
n :7 Round (1.0 / H RES / Pitch) 


end; 
5 <= n <= 20 + 
Last Pitch := Pitch; 


Move Left (Pr2 [Ø], st [9], 4); 


(Continued) 
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st [3] := Chr (n - 5); 
C Width :7 n 


end; { Pitch Set } 


function Has Fine HMove { : boolean } ; 
i Returns TRUE if and only if the printer has a horizontal 


motion command to move relatively with increments of 
the horizontal resolution of the printer (H RES). If 


Has Fine HMove = FALSE, then no attempt is made to equally 
space during adjustment or centering. 


begin . Has Fine HMove } 
Has Fine HMove := TRUE 


end; ui Has Fine HMove } 


procedure i Move { (d : integer; var st : string) } ; 

Returns a string which moves the print head ldl steps 
of size H RES in the horizontal direction. If d > D, 
the move is in the forward direction; if d < Ø, then 
the move is ~d steps in the reverse direction. 
Global variables: 

Set: 

Used: Pr3 


Caris: Move Left 


Var 


dt, 
len, 


integer; 


begin í H Move } 


(Continued) 
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st [Ø] := Chr (9); 
len := D: 
if d <> D then begin 
if d >= D then dt := d else dt := -d; 


repeat 
m := dt; 
if m > 127 then m := 127; 
dr. e dE =: i 


len := len + 3; 

st [f] := Chr (len); 

Move Left (Pr3 [1], st [len - 2], 2); 

if d < Ó then st [len] := Chr (256 - m) 
else st [len] := Chr (m) 


until dt <= f 


end 
end; f H Move } 
o ) 
function Esc Size i (c : char) : integer Fa 


i Returns the length of the escape sequence with command 
character c. àn escape sequence of length zero is 
assumed to be a variable length command which ends 
with a Chr (Ó) (NULL) character. 


Global variables: 
Set: 


Used: Size 


Calls: 


begin { Esc Size } 
Esc Size := Size [c] 


end; { Esc Size | 


function Char Width í (c : char) : integer } ; 


{ Returns the width of character c in horizontal 
resolutions H RES. 


(Continued) 
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Global variables: 
Set: C Width, Last Pitch 
Used: Pitch, C Width, Last Pitch 


Calls: Round 


begin í Char Width | 
if Pitch <> Last Pitch then begin 


C Width := Round (1.0 / H RES / Pitch); 
Last Pitch i= Pitch 


end; 
Char Width c= CO Width 


end; i Char Width } 


function Hor Res í : real +; 
Returns the horizontal resolution of the printer H RES. 
Global variables: 
Set: 


Used: 


Calls: 


begin : hor Res } 
Yor Res := H RES 
end; { Hor Res } 
function Def Pitch { : integer ; ; 


( Returns the default pitch D PITCH. 


Global variables: 
Set: 
used: 


(Continued) 
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begin { Def Pitch } 
Def Pitch := D PITCH 


end; i bef Pitch } 


function Supports Backspace { : boolean } ; 


| TRUE if and only if the printer supports backspace 
for underlining. } 


begin i Supports Backspace } 
Supports Backspace := TRUE 


end; f Supports Backspace ; 


procedure Under On { (var st : string) } ; 


Character sequence to turn underlining on. Only used 
if not Supports Backspace. } 


begin : Under On } 
st [Ø] := Chr (9) 


end; - Under On ; 


procedure Under Off ( (var st : string) j ; 


{ Character sequence to turn underlining off. Only used 
if not Supports Backspace. ) 


begin { Under Off } 
st [Ø] := Chr (Ó) 
end; { Under Off } 


( Underlining is not attempted if not Supports Backspace 


and Under On returns a string of length 9. } 


(Continued) 
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procedure Init Pr Parans; 
{ Reinitializes the Script Pr parameters. 
Global variables: 
Set: Pitch 
Used: 


Calls: 


ur 


begin { Init Pr Params } 


Pitch ais D PITCH; 
Last Pitch := D PITCH; 
C Width := Round (1.0 / H RES / D PITCH) 


end; . Init Pr Params j} 


BEGIN OD Seripe Pr 
for C :- Chr (0) to Chr (255) do begin 
2 nen ve :* Qc = 128; 
if {UC < Se) or (Oc = 127) Eben 


Size [C] := 2 


P mh r udi» of 
U 


Size [C] := 3; 
otherwise Size [C] := 2 


end 
end; 
Pri [0] := Chr (3); 
Pri PIT f= CRE CESCO; 
Pri [2] 9-4 
Pri [3] := Chr (2); 


(Continued) 
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Pr2 [Ø] := Chr (3); 
Pr2 [1] := Chr (ESC); 
Pr2 12] ae 5573 
Pra per i-e Che £233 
Pri TLI $9 Che (ESC); 
Pr3 [2] := ^H^ 
END. SEPIpE Pr y 
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CUSTOMIZING FQR A CENTRONICS 737 PRINTER 


The following unit will allow Script to take advantage of the special 
features of the Centronics 737 printer. Enter the text into the editor, 
compile it, and link it into the SYSTEM.LIBRARY. This unit can also be 
modified for other printers. 


UNIT Script Pr; 
INTRINSIC Code 25 Data 26; 
INTERFACE 
var 


Pitch : The current pitch (characters per inch). } 
integer; 


procedure Pr Reset (var st : string); 
Returns a string which resets the printer. } 
procedure L Marg Set (var st : string); 


Returns a string which sets the left margin. If the 


null string is returned, then a soft left margin is 
maintained by Script. } 


procedure Pitch Set (var st : string); 


( Returns a string which sets the pitch. Also performs 
range checking on Pitch and forces it to a reasonable 
value before setting the pitch. } 


function Has Fine HMove : boolean; 


{ Returns TRUE if and only if the printer has a horizontal 
motion command to move relatively with increments of 
the horizontal resolution of the printer (Hor Res). If 
Has Fine HMove = FALSE, then no attempt is made to equally 
space during adjustment or centering. 


procedure H Move (d : integer; var st : string); 


( Returns a string which moves the print head id] steps 
of size Hor Res in the horizontal direction. If d > f, 
the move is in the forward direction; if d < ó, then 


the move is -d steps in the reverse direction. } 


(Continued) 


APPLE TECH NOTES Copyright (C) 1982 by Apple Computer, Inc. 


— — BE ai ii — — A — es A y ey — ee es UND —— ee Uum RE — — — — e Po A SS ee RR mn RR A ee ee - le “uile A 


MN r — — ME. mr vun e dr vn. ——— Ss ss ess ee ee mid Se -— ee eee ee uA— ee ee ee ee eee — ee — ee ee — me 4D HM ee e es ee m m ee — '— —ÁÀ — 


function Esc Size (c : char) : integer; 

{ Returns the length of the escape sequence with command 
character c. An escape sequence of length zero is 
assumed to be a variable length command which ends 
with a Chr (Ø) (NULL) character. } 


function Char Width (c : char) : integer; 


{ Returns the width of character c in horizontal 
resolutions Hor Res. } 


function Hor Res : real; 
í Returns the horizontal resolution of the printer. } 
function Def Pitch : integer; 
L Returns the default pitch. | 
procedure Init Pr Params; 
Reinitializes the Script Pr parameters. } 
function Supports Backspace : boolean; 


í TRUE if and only if the printer supports backspace 
for underlining. } 


procedure Under On (var st : string); 


{ Character sequence to turn underlining on. Only used 
if not Supports Backspace. j 


procedure Under Off (var st : string); 


{ Character sequence to turn underlining off. Only used 
if not Supports Backspace. } 


{ Underlining is not attempted if not Supports Backspace 
and Under On returns a string of length g. ) 


LMPLEMENTATION 
{ Written by: Tim O”Konski | 


{S$R-} 
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($V-] 
CONST 
H RES = f.09667; ( The horizontal resolution of the | 
printer. } 
D PITCH = 19; { The default pitch (characters per inch). } 


{ Centronics 737 specific. } 


DIFF PITCH = 3.35; { Split the difference of 10 and 16.7. ] 


ESC = 27; 

SOH = 1; 

STX = 2; 

ETX = 3; 

EOT = 4; 

ENQ = 5; 

ACK = 6; 

DC3 = 19; 

DC4 = 29; 

SI = 15; 

SO = 14; 
VAR 

Size Í Table of escape sequence lengths. An escape 

sequence of length zero is a variable length 
sequence which ends with a Chr (P) character. 
Set: Script Pr 
Used: Esc Size } 
packed array [char] of 9..255; 
- n e 42 nnn mins i 
2 

procedure Pr Reset { (var st : string) Ka 


| Returns a string which resets the printer. j 
begin { Pr Reset } 
st [Ó] := Chr (Ó) { No reset command. } 


end; í Pr Reset } 


procedure L Marg Set i (var st : string) } ; 
(Continued) 
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{ Returns a string which sets the left margin. If the 
null string is returned, then a soft left margin is 
maintained by Script. } 


begin { L Marg Set } 
st [Ø] := Chr (0) { No left margin command. } 


end; { L Marg Set } 


procedure Pitch Set { (var st : string) } ; 
{ Returns a string which sets the pitch. Also performs 
range checking on Pitch and forces it to a reasonable 
value before setting the pitch. } 


begin { Pitch Set } 


st [9] ==. Chr: (2): 
st [1] := Chr (ESC); 


if Pitch <= 10 + DIFF PITCH then begin 


Pitch := 10; 
st[2] := Chr (DC3) 
end 
else begin 
Pitch <= 17; 
st[2] := Chr (DC4) 
end 


end; { Pitch Set } 


function Has Fine HMove í : boolean } ; 


{ Returns TRUE if and only if the printer has a horizontal 
motion command to move relatively with increments of 
the horizontal resolution of the printer (H RES). If 
Has Fine HMove = FALSE, then no attempt is made to equally 


Space during adjustment or centering. 


begin { has Fine HMove } 
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las Fine HMove :z FALSE 


end; { Has Fine HMove ] 


procedure H Move ( (d : integer; var st : string) } ; 


{ Returns a string which moves the print head ldl steps 
of size H RES in the horizontal direction. If d > p, 
the move is in the forward direction; if d < f, then 
the move is -d steps in the reverse direction. } 


Var 


integer; 
begin { H Move } 


if d <= f then st [Ø] := Chr (8) 
else begin 


if d > 240 then d := 249; { Max in 8@ char. string. } 
i := l; 
while d >= 6 do begin 


st [i] := Chr (ESC); 
st [i + 1] := Chr (ACK); ( Six dot space. } 
i := ií 2; 
d ¿= dq 
end; 


if d > f then begin 
st [1] := Chr (ESC); 
case d of 


1: st [i + 1] := Chr (SOH); 
2: st [i #1] ¿>= Chr [SIX)3 
3: st fi + 1] += Chr (EIX); 
4: st [i + 1] :9 Chr (EOT); 
5: st [i + 1] := Chr (ENQ) 
end; 
i we IB 
end; 
st[(f] := Chr (i ~ 1) 
end 
(Continued) 
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function Esc Size { (c : char) : integer j ; 


: Returns the length of the escape sequence with command 
character c. An escape sequence of length zero is 
assumed to be a variable length command which ends 
with a Chr (Ó) (NULL) character. } 


1 


begin : Esc Size ; 


Esc Size := Size [c] 
end; « sc Size 
ER ERS SoS A Iud Was NOTET KC PETENS ) 
Function Char Width. (c v char) s integer J 5 


Returns the width of character c in horizontal 
resolutions H RES. ) 


begin : Char Width 


if Pitch <= 1@ + DIFF PITCH then Char Width sag E 
else Char Width := 


l 
wW 


function Hor Res + : real } ; 
Returns the horizontal resolution of the printer H RES. } 
begin L Hor Res } 
Hor Res := H RES 


end; { Hor Res } 


function Def Pitch { : integer : ; 
{ Returns the default pitch D PITCH. } 
begin { Def Pitch } 


(Continued) 
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Def Pitch := D PITCH 


end; { Def Pitch } 


function Supports Backspace { : boolean } ; 


{ TRUE if and only if the printer supports backspace 
for underlining. } 


begin { Supports Backspace } 
Supports Backspace := FALSE 


end; { Supports Backspace } 


procedure Under On { (var st : string) } ; 


{ Character sequence to turn underlining on. Only used 
if not Supports Backspace. } 


begin í Under On } 


Chr LIE 
Chr (SI) 


st [Ø] 
st: [li 


end; { Under On } 
procedure Under Off { (var st : string) } ; 


( Character sequence to turn underlining off. Only used 
if not Supports Backspace. } 


begin { Under Off } 


st [Ø] 
st [1] 


Chr (155 
Chr (SO) 


end; { Under Off } 


{ Underlining is not attempted if not Supports Backspace 
and Under On returns a string of length p. ) 


(Continued) 
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procedure Init Pr Params; 

{ Reinitializes the Script Pr parameters. } 
begin { Init Pr Params } 

Pitch := D PITCH 


end; { Init Pr Params } 
BEGIN í Script Pr } 


Fill Char (Size, Size Of (Size), 2) 


ENDs- <{, Seript Br y 
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ERRATA - THE SHELL GAMES 939-066-090 


Page 11 
Item 4 mentions that the listing of “Animals and Their Young” is on page 9 
when it^s really on page 8. 


Page 26 
Paragraph 3 mentions that problem 5 resides from 9025 to 9829 when it is 
actually from 9030 to 9934. 


Page 34 
Modifying Professor True states that you are given 5 strings while you 
really only get 4, D1$ to D4$. 


Page 35-36 
You must save the program and re-run it before any flag changes will take 
effect. 
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SILENTYPE SPACING ERRORS 


If the RIGHT margin is set less than 48 and the screen is OFF, extra spaces 
may be introduced into the printout. Turn the screen on by sendíng a 
control "T" to the printer to correct this. 


The Silentype margins must be reset after every PR#l. Some features, such 


as print intensity, do not need to be set every time and may lead to the 
belief that the system is supposed to work that way for everything. 
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PASCAL ][ UNIT- FOR SILENTYPE PROCEDURES 


Appendix D (pages 53-59) of the Silentype reference manual indicates that 

all the parameter procedures can be placed into aa intrinsic library unit. 
This is a handy and valuable unit to have if you plan to use the Silentype 
in Pascal. 


To extend the usability of the Silentype unit, two procedures have been 
added to this listing, and another has been changed. These procedures will 
be discussed here; please refer to the Silentype manual for a description of 
the remainder of the routines. 


PROCEDURE SETPAGE (PAGE: INTEGER) 


This procedure will allow you to change from one hí-resolution graphics 
screen to the other, although only the first hi-res page is used in the 
Pascal system. 


Values:  i-first page 
2=second page 
PROCEDURE COLDSTART 


The COLDSTART procedure will reset all the Silentype parameters to the 
default values as specified in the printer manual. This procedure is 
equivalent to turning off the power to the printer. 


Values: none required. 


PROCEDURE WARMSTART 


The RESTORE procedure as listed in the Silentype manual has been revised and 
renamed WARMSTART. Included in the revision is the SETPAGE procedure. This 
procedure differs from COLDSTART in that the parameters set by WARMSTART are 
user-definable; that is, they may reflect the particular setup that you find 
most applicable to your needs. (For instance, you may want a darkness 
setting of 3 instead of 5.) 


INITIALIZATION CODE 


The initialization code consists of a call to the COLDSTART procedure. This 
will be executed when the unit is first brought into the system from the 
library. This will insure that the printer does not have any unwanted 
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PROCEDURE ROMENABLE; 


CONST ROMSOFF= -12289; 
ROMON= -16128; 
TYPE WINDOW= PACKED ARRAY [@..@] OF @..255; 
VAR ADDR: INTEGER; 
P: ^WINDOW; 
BEGIN 
ADDR:=ROMSOFF; 
MOVELEFT(ADDR,P,2); 
P^[9]:-79; 
ADDR :=ROMON; 
MOVELEFT(ADDR,P,2); 
P^(9]:-9 
END; 


PROCEDURE SETBYTEVALUE; 
TYPE WINDOW- PACKED ARRAY [Ø..Ø] OF @..255 
VAR ADDR: INTEGER; 

P: ^WINDOW; 
BEGIN 
ROMENABLE; 
ADDR :=LOC; 
MOVELEFT(ADDR,P,2); 
P^[9]:2VALUE 
END; 


FUNCTION BYTEVALUE; 
TYPE WINDOWS PACKED ARRAY [Ø..Ø] OF @..255 
VAR ADDR: INTEGER; 
P: ^WINDOW; 
BEGIN 
ROMENABLE ; 
ADDR:=LOC; 
MOVELEFT(ADDR,P,2); 
BYTEVALUE:=P*[$] 
END; 


PROCEDURE SEND; 
CONST PRINTUNIT= 6; 
BEGIN 
UNITWRITE(PRINTUNIT,CH,1,9,12) 


END; 


PROCEDURE SETUNIDIRECT; 


CONST MAXBYTE- 255; 
DIRECTION» -12529; 


BEGIN 
SETBYTEVALUE(DIRECTION, MAXBYTE) 
END; 
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values remaining from previous usages in either Pascal or in Basic. If 
desired, you may change this to WARMSTART or other code, or leave the 
initialization section empty (but the BEGIN and END must be present). 


INSTALLING THE UNIT 


The Silentype unit is ready to type in, compile, and install in your copy of 
SYSTEM.LIBRARY. You may wish to change the INTRINSIC CODE value, or the 
contents of WARMSTART to suit your individual needs. Refer to pages 186-193 
of the Apple Pascal Operating System Reference manual for instructions on 
the LIBRARY program which will place the compiled Silentype unit into your 
SYSTEM.LIBRARY. 


(*SS+* ) 
UNIT SILENTYPE; INTRINSIC CODE 27; 


INTERFACE 


PROCEDURE ROMENABLE;j; 
PROCEDURE SETBYTEVALUE (LOC,VALUE: INTEGER); 
FUNCTION BYTEVALUE (LOC: INTEGER): INTEGER; 
PROCEDURE SEND (CH: CHAR); 
PROCEDURE SETUNIDIRECT; 
PROCEDURE SETBIDIRECT; 
FUNCTION UNIDIRECT: BOOLEAN; 
PROCEDURE SETNEGATIVE; 
PROCEDURE SETPOSITIVE; 
FUNCTION NEGATIVE: BOOLEAN; 
PROCEDURE SETPAGE (PAGE: INTEGER); 
PROCEDURE SETDARK (DARKNESS: INTEGER); 
FUNCTION DARK: INTEGER; 
PROCEDURE SETFORM (LENGTH: INTEGER); 
UNCTION FORM: INTEGER; 
PROCEDURE SETSPACE (LENGTH: INTEGER); 
FUNCTION SPACE: INTEGER; 
FUNCTION LEFTMARGIN: INTEGER; 
FUNCTION RIGHTMARGIN: INTEGER; 
PROCEDURE SETLEFTMARGIN (POSITION: INTEGER); 
PROCEDURE SETRIGHTMARGIN (POSITION: INTEGER); 
PROCEDURE PRINTBUFFER; 
PROCEDURE CLEARBUFFER; 
PROCEDCRE FORMFEED; 
PROCEDURE PRINTPIC; 
PROCEDURE COLDSTART; 
PROCEDURE WARMSTART; 


IMPLEMENTATION 
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PROCEDURE SETDARK; 
CONST INTEN= -12528; 
BEGIN 
IF DARKNESS<® THEN DARKNESS:=64; 
IF DARKNESS>7 THEN DARKNESS:=7; 
SETBYTEVALUE( INTEN , DARKNESS) 
END; 


FUNCTION DARK; 
CONST INTEN= -12528; 
BEGIN 
DARK: =BYTEVALUE( INTEN) 
END; 


PROCEDURE SETFORM; 
CONST FORMLENGTH= -12531; 
BEGIN 
IF LENGTH<® THEN LENGTH: 29; 
IF LENGTH>255 THEN LENGTH:=255; 
SETBYTEVALUE( FORMLENGTH, LENGTH) 
END: 


FUNCTION FORM; 
CONST FORMLENGTH= -12531; 
BEGIN 
FORM: =BYTEVALUE( FORMLENGTH ) 
END; 


PROCEDURE SETSPACE; 
CONST INCR= -1253P; 
BEGIN 
IF LENGTH<1 THEN LENGTH:=1; 
IF LENGTH2252 THEN LENGTH :=252; 
SETBYTEVALUE( INCR, LENGTH) 
END: 


FUNCTION SPACE; 
CONST INCR= -1253ß; 
BEGIN 
SPACE :=BYTEVALUE(INCR) 
END; 


FUNCTION LEFTMARGIN; 
CONST LMAR= -12527; 
BEGIN 
LEFTMARGIN:=BYTEVALUE(LMAR) 
END: 
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PROCEDURE SETBIDIRECT; 


CONST MINBYTE= f; 
DIRECTION- -12529; 
BEGIN 
SETBYTEVALUE(DIRECTION,MINBYTE) 
END; 


FUNCTION UNIDIRECT; 
CONST MAXBYTE= 255; 
MINBYTE- f; 
DIRECTION- -12529; 
BEGIN 
CASE BYTEVALUE(DIRECTION) OF 
MINBYTE: UNIDIRECT:=FALSE; 
MAXBYTE: UNIDIRECT:=TRUE 
END 
END; 


PROCEDURE SETNEGATIVE; 
CONST MINBYTE- f; 
FLIP= -12524; 
BEGIN 
SETBYTEVALUE( FLIP , MINBYTE) 
END; 


PROCEDURE SETPOSITIVE; 
CONST MAXBYTE= 255; 
FLIP= -12524; 
BEGIN 
SETBYTEVALUE( FLIP , MAXBYTE) 
END; 


FUNCTION NEGATIVE; 
CONST MAXBYTE= 255; 
MINBYTE= 9; 
FLIP= 5125324; 
BEGIN 
CASE BYTEVALUE(FLIP) OF 
MINBYTE: NEGATIVE:=TRUE; 
MAXBYTE: NEGATIVE:-FALSE 
END 
END; 


PROCEDURE SETPAGE; 
CONST GRAPHPAGE= -12525; 
BEGIN 
IF PAGE=2 THEN PAGE:=64 
ELSE PAGE:=32; 
SETBYTEVALUE(GRAPHPAGE , PAGE) 


END; 
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PROCEDURE COLDSTART; 
CONST MINBYTE= f; 
DEFAULT- -125ß6; 
BEGIN 
SETBYTEVALUE( DEFAULT , MINBYTE) 
END; 


PROCEDURE WARMSTART; 

BEGIN 
SETBIDIRECT; 
SETPOSITIVE; 
SETPAGE(1); 
SETDARK( 5); 
SETFORM( 40); 
SETSPACE(2); 
SETLEFTMARGIN(2); 
SETRIGHTMARGIN(81); 

END; 


BEGIN (* INITIALIZATION SECTION *) 
COLDSTART; 
END. 
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FUNCTION RIGHTMARGIN; 
CONST RMAR= -12526; 
BEGIN 
RIGHTMARGIN: =BYTEVALUE( RMAR) 
END; 


PROCEDURE SETLEFTMARGIN; 
CONST LMAR= -12527; 
BEGIN 
IF POSITION>=RIGHTMARGIN THEN POSITION:=RIGHTMARGIN-1; 
IF POSITION<® THEN POSITION:=9; 
SETBYTEVALUE( LMAR, POSITION) 
END; 


PROCEDURE SETRIGHTMARGIN; 
CONST RMAR= -12526; 
BEGIN 
IF POSITION<=LEFTMARGIN THEN POSITION: =LEFTMARGIN+1; 
IF POSITION>83 THEN POSITION:=83; 
SETBYTEVALUE( RMAR , POSITION) 
END; 


PROCEDURE PRINTBUFFER; 
CONST CF= 6; (* ASCII FOR CONTROL-F *) 
BEGIN 
SEND(CHR(CF)) 
END; 


PROCEDURE CLEARBUFFER; 
CONST PRINTUNIT= 6; 
BEGIN 

UNITCLEAR(PRINTUNIT) 
END; 


PROCEDURE FORMFEED; 
CONST FF= 12; (* ASCII FOR FORM-FEED *) 
BEGIN 
SEND(CHR(FF)) 
END; 


PROCEDURE PRINTPIC; 
CONST CQ- 17; (* ASCII FOR CONTROL-Q *) 
VAR BIDIRECT: BOOLEAN; 
BEGIN 
IF UNIDIRECT-TRUE THEN BIDIRECT:=FALSE 
ELSE BIDIRECT:=TRUE; 
IF BIDIRECT THEN SETUNIDIRECT; 
SEND(CHR(CQ) ) ; 
IF BIDIRECT THEN SETBIDIRECT 
ENU; 
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ERRATA - SILENTYPE MANUAL 


A2L0$934 
030-90095-99 


Page il 
This procedure for printing a Hi-Res image doesn't work. When you go to 
the Filer, Pascal clears the Hi-Res buffer. I suggest that the program be 


modified as shown below: 
PROGRAM SPIRO; 


USES TURTLEGRAPHICS, APPLESTUFF; 
VAR ANGLE, DISTANCE : INTEGER; 


CH : CHAR; (* ADDED *) 
BEGEN 
ANGLE := Ó; 
WHILE NOT KEYPRESS DO 
BEGIN 
INITTURTLE; 


PENCOLOR (WHITE); 
FOR DISTANCE := f TO 99 DO 
BEGIN 
MOVE (2 * DISTANCE); 
TURN (ANGLE); 


END; 

ANGLE := ANGLE + 5; 
END; 
CH:=CHR (17); (* ADDED *) 
UNITWRITE (6,CH,1,9,12); (* ADDED *) 
TEXTMODE 


END. 


Page 13 
The discussion on "ECHOING TO THE SCREEN" assumes that you have already 
done a PR#l before you do the T command. 


Page 18 
The discussion in the last paragraph assumes that you have already done a 


PR#L before you do the Q command. 


Page 38 
Line 4, "for the right margin is 2" should be "for the left margin is 2” 


Page 39 | 
Program line 6040 should end with THEN GOTO 6979 
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INSTALLING APPLE ][ WORDSTAR ON APPLE /// CP/M 


DISCLAIMER: 


SINCE WORDSTAR IS NOT AN APPLE PRODUCT, THIS INFORMATION IS NOT 
GUARANTEED TO BE EITHER ACCURATE OR THE BEST SOLUTION TO RUNNING 
WORDSTAR ON THE APPLE /// WITH THE SOFTCARD ///. 


To use Wordstar with the APPLE /// the following procedure is necessary. 
Note that if you are not familiar with CP/M, have an experienced person 
install these patches for you. First, refer to the Wordstar manual for 
instructions on installing a version of Wordstar with any type of 
terminal, and with the correct printer options. Use only the CP/M LIST 
device output option. 


Procedure: 


l. Install a version of Wordstar following the instructions in 
the manual. Use any Terminal, and select the correct printer. 


2. Using DDI, or equivalent, make the following changes: 


A>DDT (Enter DDT.COM) 

DDT VERS 2.2 

-F1909,7FFF,9 (Fill memory from (199 to 7FFF with 9) 
-iwordstar.com (Insert wordstar.com) 

-r (Read in the file) 

NEXT PC 

4309 PIDO (NEXT refers to the next available 


memory, PC, refers to the Program 
Counter setting. Write down the NEXT 
number for future use) 


-F1990,1AF,29 «CR» (Fill memory with 2%, spaces) 
-F240,2AF,0  «CR2 (Fill memory with 9) 
-519% <CR> (Substitute memory starting at 199) 


$199 99 41 <CR> 
$191 PA 50  <CR> 
9192 09 50 <CR> 
0193 00 4C <CR> 
$194 09 45 <CR> 
0195 OP 20 <CR 
0196 PB 2F <CR> 
9197 PP 2F <CR> 
9198 09 27 <CR> 
$199 00 20 <CR 
019A PP 2E <CR> 
$19B PH 43 <CR> 
019C 00 4F <CR 
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3. Save a copy of the new version using the Save command. 


A>SAVE xx WSTEST.COM 


For values of xx refer to the table below, referring to the 
number you wrote down in step 2 above. (You did write it 


down dida't you) 


If NEXT 


4990 
4199 
4209 
4399 
4490 
4509 
4699 
4709 


Then save 


4. Test the new version for correct operation. Once you are 
satisfied that it is working correctly, REName WSTEST.COM to 


WORDSTAR. 


COM. 


e 
os 


A>REN WORDSTAR.COM-WSTEST.COM 
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19D PPD 4E — «CR» 
$19E PP 53 <CK> 
19F 00 4F «Cm» 
01589 PD 4C  <CR> 
$141 09 45 <C> 


$142 OO . <CR> (Terminate command with ^.^) 
-5246 <C> (Substitute memory starting at 246) 
$246 DP lo <CK> (24 lines by 8% characters) 


$247 0 5) <CR> 
$248 00 18 J «CIO 
0249 00 50 <CK> 
9244 PD Qi <CR>D 


$245 00 iA <CR>D (Lead-in Character) 

Y24c OO . <CR> 

$5230 (Substitute memory at 25D) 
4250 Ø EF <CR> (Send column before line) 
B25E OP . <CR> 

“abb (Substitute memory at 26D) 
26D 09 Pl <CK> 

D26E d) IF  <CRD> (Erase to end of line) 
Ø26F 99 . <CR> 

-5284 (Substitute memory at 284) 
0284 ó 91 <CK> 

$285 HØ 12 <CR> (Inverse Video) 

P286 pø. «CR? 

523B (Substitute memory at 28B) 
$288 00 Pl <CR> 

D28C BO il <CR> (Normal Video) 

0280 99 . <CR> 

-5292 (Substitute memory at 292) 
4292 09 84 <CR> (Inittalize to 8% columns 
1293 00 1 <CR> and clear the screen on 
Y294 p $3 <CR> entry to Wordstar) 


$295 00 ól <CR> 
2290 PP 1C <CR> 
0297 pp . <CR> 
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-5298B (Substitute memory at 29B) 
0295 dà Pl <CR> (Clear screen on exit from 
Y29C BB 1C <CR> Wordstar) 

$29D 99 . <CR> 

-GØ 
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